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FAITES 36.15 ET TAPEZ MHZ 

CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 



Nous disposons d'un service MINITEL 

que de nombreux lecteurs connaissent bien maintenant. 

Outre l'information diffusée, 

il devient un instrument de dialogue permanent 

entre vous et notre rédaction. 



NOS REVUES 



Dès que la revue est chez l'imprimeur, le 
sommaire apparaît sur la page concernée. 

Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis- 
quettes, cassettes, livres). 



LA BOITE A LETTRES 



Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour - 24h sur 
24h - sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. 

Les correspondances sont relevées chaque 

jour! 

De plus, vous pouvez, entre lecteurs, écrire, 

recevoir des messages, faire des échanges 

techniques. 

Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 



LES PETITES ANNONCES 



24h sur 24h, 7 jours sur 7, elles sont accès- 
slbles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque 
jour que tes annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas- 
ser vos annonces sur le serveur. 



DES INFORMATIONS 



Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 
d'erreur. 



NOS PRODUITS 



Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en- 
semble des produits disponibles est présen- 
té. Nous avons simplifié au maximum la pro- 
cédure. Lecteurs et revendeurs peuvent aus- 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 



36.15, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 



EDITO 



Après l'immense succès obtenu par nos deux 
premiers numéros hors-série, nous avons décidé 
de poursuivre l'expérience en publiant 
périodiquement une nouvelle sélection de 
programmes de jeux, utilitaires et éducatifs qui 
vous seront proposés avec le label de qualité CPC. 
Les abonnés recevront gratuitement tous ces 
numéros. Une bonne nouvelle n'arrivant jamais 
seule, nous avons le plaisir d'annoncer aux 
heureux utilisateurs de PC 1512 la naissance de 
PCompatibles Magazine que nous avons préparé 
dans le même esprit que CPC et qui deviendra 
sûrement la revue des vrais passionnés du 
standard PC. 

Un dernier message enfin, pour tous ceux qui ont 
des ampoules au bout des doigts : la disquette 
contenant tous les programmes de ce hors-série 
n° 3 est disponible aux conditions habituelles 
sous la référence HS3. Vous voyez bien que votre 
Amstrad n'a plus aucune raison de se plaindre ! 
Amusez-vous bien ! 
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Ce logiciel vous permettra de 
vous entraîner seul ou à 
deux au célèbre jeu télévfsé 
"Les chiffres et les lettres". 
Sonorisé en stéréo, Il est do- 
té d'un affichage lisible mê- 
me sur l'écran monochrome. 

Les caractères en double-hauteur 
ont été réalisés à l'aide de la routine 
décrite dans CPCn° 7. 
Vous trouverez les règles du jeu 
dans le programme qui est divisé 
en deux parties : la première com- 
porte l'écran de présentation ainsi 
que la RSX double hauteur, alors 
que la seconde constitue le jeu pro- 
prement dit. Une dernière précision 
cependant ; si vous souhaitez ré- 
pondre avant la fin du temps im- 
parti, qui est de 1 minute, il suffit de 
presser la touche Return. Que le 
meillleur gagne ! 
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5 ' présentation i leader - car HicBil B 
LMON - aeoteibre l'Sn - son stereo - 



B ' rs* double hauteur par Hjchel 6ANTIE 
fi - CPC I 7 - page 40 /il 

1 ■ 

10 Ï1ENQRY (?FFF;GDSUB iOOOOiCALL IBBOOiC 

AU IBBFFiCALL IBCiîrHODE OrBDRDER 13:F0 

R F=0 TU UilNK F,l3iNE*T 

20 mm il,l,20,l,B:PflPER ll,3:PEN 11, 

OiCLS I] 

30 HINDOU i2,1,20,9,22jI>APER I2,5iPEM 12 

,4;CLS 12 

40 noue iiKtwm m,o,umm 0,359,1 

:DRA«R -É39,0,1:BRAHR 0,-359,1 

50ADVE t,«IlBflHR«I,fl,l|WS£ 2,397rDR 

m 431,0,1 

40 WDVE 4,44:DRAMfi 627,0,4iDRAKR 0,350,4 

( DRAMR -427,0,4:DRA*R 0,-350,4 

70 «IVE 6,44:DRAUR 427,0,4:HDVE B,392iBR 

AKR 427,0,4 

BO HQVE H,ftimm 419,0, 4iDRANR 0,342, 

Umm -419 ( 0,4!DRANR 0,-342,4 



90 HDVE H.50iDRA"R 419,0,4:HDVE 12,389: 

DRAKR 619,0,1 

100 HDVE 14,52:DRAHR 611.0,1 : DRawa 0,334 

, 1: DRAHR -611,0,liDRAKR 0,-334,1 

110 HDVE 14,54:DRAHR 6Q7,0,1;HDVE 14,185 

iDRAHR 607,0,1 

120 HDVE 14,270:DRANR 607,0 p liM0VE 14,24 

BiDRAHR 407,0,1 

130 HDVE I2,244:DRANR 613 ,0 , 4: MOVE 12,26 

4: DRAWR 613,0,4 

140 HOVE I2,262:DRANR 613.0,4: ID'.E 12.26 

OîDRANR 613,0,4 

ISO HDVE 14 , 2SBs DRAMR fcO7,0,IîHÛVE 14 ,25 

ÈiDRAHR 607,0,1 

160 CALL HSEtlPAPER 3:PEN 0:LDCATE 2,3; 

TI="CPC t Michel BUZON'i !DHAUT,!Tt 

170 LOCATE tl,6,7:PRlNT II , -presentenf 

180 PAPER 5:PEN 6:L0CATE 2 t 11ïT*=-DES CH 

IFFRES*:]DHAUT,fTt 

190 LOCATE !2,10,B:PRINr 12, "ef 

200 LOCATE 9,20: T**"DES LETTRES': IDHAUT, 

ITI 

210 LOCATE 2.25:PflPÊR OiPEN 1:PRINT"VEU! 

LLEI PATIENTER 1 

220 FOR F=0 10 13 STEP 0.2:DR1BIN 3B.70: 

DRAW 130-FM0,Fi9,F:OR16IN 601,236:DRAH 

R -U30-F»10l,-(Ft9),F:NEJT 

230 :ni- ] , : 1 NK 1 ,0: INK 2,I5;INK 3,3: INK 

4,I2;INK 5,9;INK 6,1:F0R F*7 10 15iINK 
F,F:N£ÏT 
240 RUN'lettre' 

60000 FOR F=SA5Et TD tA67A:READ Af:A=VAL 
Cf+AtliPOKE F.AiNEITiRETORN 
60010 DATA 0l,F3,A5,2l,EF,A5,C3,Dl,BC,00 
,0O,OO,0O l FB,A5,[3,FE,A5,44,4B,4l,55,D4, 
0O l D0,6E,OO,DD,66,Ol,46,23 < SE,23,;6,EB,7 
E,E5,0E,20, 91, 6F, 26, 00,05, 04,03,54,50,19 
,10,FB,11,00,39,19,3E,19,CD,5A,BB,3E,FE, 
CD, 5A, BB, 06, 04, CD, 06, 19, 4F, 5E, 79, CD, OC 
60020 DATA B9,7B,0D,5A,BB,CD,5A,BB,23,I0 

,ED,3E,19,[D,5A,BB,3E,FF,CD,5A,BB,06,04, 
CD,04,B9,4F,5E,79,CD,OC,B9,7B,[D,5A,BB,C 
D,5A,BB,23,10,ED,3E,FE,[D,5A,GB,3E,0A,CD 

,5A,BB,3E,0B,[D,5A,BB,3E,FF,CD,5A,BB,3E, 

OB,CO,5A,BB,C1,EI,23,10,90,C9 

65535 SPEED WRITE liSAVE'CHIFFRES/LETTRE 

S" 



1 ' IIIHiilIKtIHi 

mimtttmii 

2 ' i DES CHIFFRES E 
1 DES LETTRES I 

3 ■ «»«•"'"«•' 

HIH H IH t H M 

4 ' 

5 ' car HichEl BUZDN - pour CPC 464 - se 
ptetbre 1986 - son sténo - 



9 DM CMllOliDlH Vi(9Q]iDM Cil 
INK 10,10 

10 HODE li BORDER 13:11 
20 aPTilll-'l - seul . 

N" 



0,13:BDSUB 5B910 
LE COMPTE EST BO 



30 0PTtl21= , 2 ■ 



'LE MOT LE PLUS L 



40 0PT*(3I="3 - seul > 



50 DPUUI'M - j deu* » 'LE COHPTE EST 
BON" 

60 0PT*(S>= P 5 - 1 dem i 'LE HDT LE PLUS 
LONG" 
70 0PTt(4l""4 - i tiux m> deux jeu* ait 

80 PEN liLOCATE 12,llTI'"V0US POUVEZ JOU 
EflUJHAUT.ITtiPEN îiFOR FM TO 6:L0CATE 
],2+3»Fi!DWMJT l MPTHFIiNEllTîT*=*- CHD1 
SIBSEZ VOTRE OPTION -' 
9D PEN 31L0CATE 7,24: IDHAUT.ITliBDSUl 5B 
920:Tt='V0ULEZ-VQUS LES INSTRUCTIONS 10/ 
N) 7 , :F0R 1=10 TO STEP-1 îSDUND INTIRND 
Illt7)+1,IM0,I0,10:NEIT I:FOR 1=1 TO 10 
0;NEIT 1:CALL &BB03 

95 Kt=UPPER$l]NKE¥l)!ÏF KKM'OR KD'i'T 
HEN 95 ELSE OPT=VflL(Kf ) 
100 INK 3,13:LDCATE 3,24:iDHAUT,eTtiiINK 
3,3:SDUND 7,100,10, 10:CALL (BB03 
105 KMUPPERKMEïthlF Ki^O'THEN 60SU 
B 5B910:DN OPT BOSUB 5B00O,5BOIO,58O20,S 
8030,58040,58020 ELSE IF KtO'N'THEN 105 
110 N*ltIF 0PT<4 THEN BOSUB 130: J» C2)=J* 
(lhJ01llWtllliJOf(:)=JIIl):GQTO 210 
120 FOR N=l TO 2:ED5UB 130: NE IT: GOTO 140 
130 GOSUB 58910:PEN UNiLOCATE 3,13: TJ=' 
JOUEUR NUHER0-t5TRt!N)f, ENTRE TON PREN 
OH.MDHAUT.eTtiGQSUB 58920 
135 SOUND -4»(N=1 AND DPT)3H<(N=2l-2t 1 
0PT<4),BÛ»N,10,10:EO5UB 22000: IF Jt(N)= - 
■THEN 135 ELSE RETURN 
140 CLSiSOSUB 5B910iPEN IiLOCATEUi-LEM 
MU»)/2,lï:Tt=Jttt)+" , PILE OU FACE I 
P/fl 7*i!DHAUT,!TliG0SUB 5B920:ENT 1,1,1 
O0,l,l,-lO0,l!FOR V=0 TD 3:SDUND 2,89,20 
,V,0,1:SOUND 1,71,20,V,0,1:BDUND 4,60.20 
,V,Q,1:NEÏT ViCALL 1BB0J 
150 Kt=UPPERIIINKEYfl:IF KKÏ'P'ANB MO 
■fTHEN 150 

160 RANDONIZE TIHEiS=INT(RND(lH21*l:J0I 
lll=JHU:J0t(2l=Jï(2l 
170 IF S=2 THEN JWlîH*i2>iJW!!W*(l 

180 CLS:B0SIB 58910:LOCAÏE[22-LENIJD»III 
1-172, 12.1 T*"J«(U+* COMMENCERA LE JEU, - : 

PEN l!!DHAUT,m:GOSUB 58920:ENT 1,10,-1 

0,1, 10, 10, 1,10, 10,1, 10, -10, IjFDR 1=26 TO 
BTEMlSBUHJ 1NTIRNDI1M7I+1, 1*10,20, 

10, , 1: INK 0,l:BORDER l! INK 1,26-I:NEIT:S 

OUND 135,0:5=0 

210 FOR F=l TD IO:C(F)=F:NE(T F:C(U1=25 

:C(!2)=50:CII3I=75:CI14I=100 

230 CM'BHLRSCONRTDKLSVBLNRTDHPRNDLNSTFH 

PSIBLNRTDHBRZFNSVT6HNTS'lCt=C)tCI 

240 FOR F=l TD 110:CJ(FI=HlDllCf,F,ll:NE 

IT F 

260 Vt=-EEAIDUEIEAOEIUEAOEAIUEADÏEAIUEA0 

E I UEAQE 1 EA I UE ■ : V*=V»+ V» 

lr*v4>^*s/\^\ 



270 FOR F=l TD 90:VI(F)=HID)(Vt,F,l!:NE)I 
T F 

290 CAf= , QI234567B9i-*7 = ' i CHR»(I3l 
300 6=0: SC (11=0: SC (21=0: HODE OiBORDER 13 
: INK 0,13:60SUB 57000 
310 IF 0PT=1 OR OPT=* THEN FOR PA=1 TO 1 
0:605UB 40Q:NEU PA:5DT0 20000 
320 IF 0PT=2 DR 0PT=5 THEN FOR PA=1 TO 1 
0:GDSUB 10000:NEÏT PA:S0TD 20000 
330 IF 0PT=3 DR DPT=6 THEN FOR PA=1 TO 3 
:6D5UB 400:B05UB 10000: : EOSUB 10000:NEIT 
PA:60SUB 400:60TD 20000 
400 GOSUB 550ÛO:J=0:CL5iO:CL5t6iLDCATEi6 
,2,2:PRlHTt6,'LE COMPTE EST BON'iCLStS 
410 NCVE 2,398:DRANR 637,0, 6:DRAKR 0,-16 
0,6:DRAHR-639,0,6:DRAHR 0,140,6:HDVE 2,3 
96:DRAHR 637,0, 6:DRAHR 0,-156,4:DRANR-63 
7,0,6:DRAyR 0,156,6 

420 FOR F=0 TD 2:H0VE 252+44tf,352;DRANR 
0,32,6:DRAHR 32,0,6:NEÏT:PAPER 6: PEN 4: 
FOR F=l TO 3:L0CATE 7tFi2,2:Tt= É 0': IDHAU 
7,eT$:NEïT 

430 HOVE 30,318:DRAUR 5B0,0,B:DRANR 0,-5 
8,B:DRAHR-5SO,0,S:DRAHR 0,5S,8:H0VE 30,3 
ib-.mw 580,0,8:DRANR 0,-54, B:DRAHR-5B0 
,Û,B:DRAi(R 0,54,B:FOR FM TO 5:NDVE 32+9 
6>F,3IB:DRANP 0,-5B,B:NEIT:GDSUB 7000:60 
SUB 56000 

500 RANDDHIZE TME:605UB 40100; INK 3,13; 
LOCATE 2,24:T1='TAPE ,1,2,3 ou 4,":PAPER 
0:PEN 3:!0HAUT,!TJ:INK 3,3:F0R F=l TD 6 
:CALL IBB03:IF CPK4 THEN S=l ELSE EDSUB 
40OO0 

510 INK S,5. 1S-6HE---1 J : SOUND -4»(5=I AND 
0PT)3)-lt(S=21-2t|DPT(4l,B0*S,10,10 
520 K1=UPPER(IINKEYJ1:IF MCI "OR M>'4' 
THEN 520 ELSE INK S,IB-6=(5=1> 
530 CHIF)>CI1NTIRND11HU)M1:CH!(F)=5TR 
tlCH(FI) 

540 FOR L=l TO 6s IF L=F THEN 540 
55D IF CHIL)=CH(FI THEN 530 
560 NÊIT L 

570 Tt=«IDt(CH)(FI,2)!L0CATE 5-LENITJI+3 
'1F-1I+H1CHIF)(10),7:PAPER 5:PEN 6:1DHA 
UT,ïTtiNOVE 32t96»(F»H(F)lll,31B:DRANR 
0,-58, G 

5B0 FOR N=l TO 200:NEU N:NEIT F 
600 BDSUB 40100: INK 3,13:L0CATE 3,24:TJ- 
■T1RABE DU COHPTE':PAPER 0:PEN 3!lDHAUT, 
ITI:INK 3,3 

610 RANDCH1ZE TlHE:B=lNTIRND(lne99M]00 
:1F B/100=1NTID/1001THEN 610 ELSE Ut=STR 
((11! 

620 FOR F=3 TD 1 STEP - 1 : FOR N=l TO 9 
630 IF VALMIDKBt.FH.lMsN-l THEN 450 
ELSE LOCATE 7+F*2, 2: T*=R I6HT* f STR* (N > ,1] 
:PAPER 6:PEN 4i !DHAUT,*ll: SOUND -IF=31-2 
tlF=21-4HF=ll,200iF-Ni20,4,I0:FDR 1=1 T 
600:NEIT 
640 NE1T N 
450 NEKT F 

660 GOSUB 40tOO:SD5UB BOO? 
700 IF 0PK4 THEN S=1:G0SUB 720iB0T0 760 
710 FDR F=l TO 2:BDSUB 4D0DÛ:60SUB 720:F 
DR H=l TO BOOiNEIT NiNEIT FsGOSUB 4000Û: 
60T0 740 

720 CALL lBBO3:B05UB 40100: INK 3,13:LDCA 

TE 2,24iT(="Entre ton resiiltif:PAPER 0: 

PEN 3:lDHAUT,!Tî:INK 3, 3: N*(Sî =" : FDR N' 

TO 3: INK S,5,1B-4*I5=1):5DUND-4MS=1 



ND OPT)3I-1»(S=2I-Z»IOPT<4I,BO*5,10,10 

730 AtlN) = "iAflN)=UPPERt(INtiEYf>:JF Alt 

NK'O'DR MIBO'Î'IHEN 730 ELSE Nf(S)=NI 

(5I+A1(N):CP1S1=VAL(NIISH:AISI=AB5(B-CP 

ISIlfINK S,18-6M5=1 

740 LOCATE W1WMI ,3;PAP£R 5:PEN S:!D 

HAUT,MIISt:6=4:IF CP(I>=0 OR CPC)ifl TH 

EN 6=8 

750 NEIT N: RETURN 

760 S5=Stl;IF SS>2 THEN SS=1 

770 0=SS: IF HfSK*ft(SS)THEH D=S. 

780 IF 0PT<4 THEN SS=2:D=1:S=J 

BQO PAPERI6,0:CLSI6:raVE 0,242:DRANR 437 

, 0,6:^00*41,1,20, 12, 22:PAPERIl,D!PENtI 

iBiCLStiiflDVE 0,224:DRANR 639, 0,6: DFjAMR 

0,-17i,4:DRANR-439,0,6:DRAIiR 0,174,6:H0V 

E 0,222i0RANR 439,0, 4:NDVE 0,5O:DRANR 43 

Mi* 

810 60SUB 40100: INK 3,13:LDCATE 5-LENUO 

tmn/ï^^rMjotiDif.ton càlrai'iPim 

0;PEN3:!DHAUT,ITtiJNK 3,3:S0UND-OID=l 
AND DPT;3l-HID=2)-2HDPT<4),e0tD,10,10 

iCALL 4B803 

820 BflGNE=0:PERDU=0îL=2: Z=0 

830 W-'iHsOtl-ItliIF Z>5 THEN 4000 

B40 N=N+I 

850 M= ,, :At=UPPEHt(INKEW 

860 FOR F=l 10 16 

B70 IF A*=MID*ICM,F, J>THEH 900 

QBO NEïT F 

890 EDTO 850 

900 IF At=CHRtll3)AND Nt*"THEN Z=O:G0TO 
B30 

910 IF AI=CHRI(131ANBINiO"AND LENINtK 

51 THEN 4000 

920 IF Af=CHRf 1131 THEN lOlOiREM VERIFICA 

TION 

930 IF AMMTHEN T=N:H=1 

940 IF fl*=--"THEN I=N:K=2 

950 IF AM'^THEN !=N:N=3 

960 IF At=VTHEN T=N:H=4 

970 IF AI^'THEN U=N 

980 Nf=Nt*Af:IF LEK(«1)13 THEN 4000 

990 LQCATEtI,2,L:PRlNTIl,Nt 

1000 ENV 7,1,4,0,4,-1,1: SOUND -4KD-1 AN 

0PT>3HHD=2l-2«<DPT<4),O,B, 0,7, 0,10: 

60TO 840 

1010 B05UB 2OO0:IF PEROU THEN 4000 ELSE 

IF GAGNE THEN 5000 

1020 SOUND 7 T B0<D,B,2:L=L+2:6DT0 G30 
2000 IF T<2 DR T>5 THEN PERDU=1: RETURN 
2010 IF 11(1 OR U>9 THEN PEHDU=I : RETURN 
2O20 PR=VAL(LEFTIINI,T-n): GOSUB 3000:IF 

PERDU THEN RETURN 
2030 DE=VAL(H1DI[N1,T+1,U-IT+II1)jGOG 
3100: IF PERDU THEN RETURN 
2040 TR=VALtRIBHTtlNl,LENlNi)-Ull:GOSUB 
3200; IF PERDU THEN RETURN 
2050 RETURN 
3000 FOR N=l TO 6 
3010 IF PR=0 THEN PERDU-J : RETURN 
3020 IF PR=CH(K)THEN CH(NI=Û:RETURN 
3030 IF PR=ST1IUTHEN STIII)=0:RETURN 
3040 NEÏT H 
3050 PERDU'l: RETURN 
3100 FOR N=l TO 6 
1110 IF DE--0 THEN PERDU=I: RETURN 
3120 IF DE=CHU)THEN CH(ït=0:R£TURN 
3130 IF DE=gT IH) THEN STIH}=0:RETURN 
3140 NEIT « 



3150 PERDU=i:R£TURN 

3200 IF HM THEN ST!Z>=PR*DE 

3210 IF H*2 THEN ST(I1=PR-!)E 
3220 IF H=3 THEN ST(7>PRiDE 
3230 IF N=4 THEN STIII=PR/DE 
3240 IF TR=ST[Z)THEN 3260 
3250 PERDU=1:RETURN 

3260 PAPER DiPEN JOiLOCATE 14,1HL:PRINT 
■-OK-' 

3270 IF CP(DI=TR THEN EASNE=1: RETURN 
32B0 RETURN 

4000 GOSUB 4O10û:LDCATE 2,24:TI^- E R R 
EUR! -MNK 3,13:PEN 3: !DHAUT,!T1:I 
NK 3,6,3:IF DPT)3 THEN D=D*I:IF D>2 THEN 



4010 ENV 1,1,G,1:ENT 1,1 , 100,0: FOR F^O T 

26:SDUND INT(RNDUIt7)H,FM00,20,O, I, 
1: SOUND INT(RNDIII*71+i,F*l 10,20,0,1,1:3 
OUND INT(RNDfll»7l+l,Fil20,20,D,I,l:GORD 
ER f:INK 0,F: NEIT: BORDER 13: INK 0,13:FDR 

F=l TO 20Û0:NEÎT 
402O IF 0PTÎ3 THEN 5000 
4030 GOSUB lOlOOiLOCATE 1,24jT*=*Tu ne i 
irques pas"+STR* (6> : INK 3,I3:PEN 3:iDHAU 
T,(T*;INK 3,3:FOR FM5 TO STEP-liSOUND 

2,0,l,F,l,l,F:NEïT:fDR F-l TO 1000:NEIT 
iBDSUB 57000:RETURN 

5000 IF DPK4 THEN Tl=' Tu urfliiEi'ELSE 
rWUt(B)*' larque" 

5010 GOSUB «lOOiLOCATE 9-LENITIi;2,24:T 
4=Tf*STRJ(6]:INK 3,13:PEN 3:lDHAUT,STt:I 
NX 3,3:ENV l,l,4,O,4,-l,4,24,0,l:ENT 1,6 
0,-l,l:FDR R=B TD 1 BTEP-liIF J THEN F=D 
:SC(F)'BCIFI*li60SUD 7070 
5020 SOUND -4KD=1 AND DPT>3] -1 * (D=2) -2# 
IOPT<4],Rt60,40,0,l,IiFDP, 1=1 TO 500:NEI 
T liGOUND 135,0 
5030 NEIT R:IF J THEN 5050 
5040 SC(D)=SC(DM6 

5050 FOR F=l TO 2000: NEIT: GOSUB 57000:RE 
TURN 
7000 GOSUB 57000: IF 0PK4 THEN F=1:B0SUB 

7020: RETURN 

7010 FOR F*l TO 2:B0SUB 7020:NEIT:RETURN 
7020 CLS1F:NDVE 1-liO* (0PT<4) -320*(F-1) * 
I0PT)3I,I13:DRANR 31B,0,4:BRANR 0,-64,4: 
DRANR-31B,0,4iDRAyR 0,64,4 
7030 NOYE 1-160*(0PT{4I-320»(F-11H0PD3 
],111:DRAHR 31G,0,4:DRAHR 0,-40, 4;DRAKR- 
318,0,4:DRAHR 0,60,4 

7040 PAPER F:PEN 4:L0CATE 2-5tlOPT<4l-10 
»(F-IIK0PT)3IM-(LEN(J0tlF)IH2,20ilDHA 
UT,(JCIIF) 

7050 CLSIF+2iN0VE 94-160<<OPT<41-32û*(F- 
l)ttOPT)3),177:DRANR 128,0,1:DRANR 0,-64 
,4:DRANR-128,0,4:DRANR 0,64,4 
7060 HOVE 94-140t(0PT(41-320KF-l)i(DPT) 
3),175:DRANR 12B,0,4:DRAKR 0,-60,4:DRANR 
-I20,0,4:DRANR 0,60,4 
7070 PAPER F:PEN 4:L0CATE 5-5»(OPT<4l-IO 
»IF-lU(OPT)îl,liiIF SC(F))9 THEN Tt=RI6 
HT)ISTRHSCIF)I,2)ELSE T*="0"+RJBHT* (STR 
KSCfFll.ll 

7OB0 IDHAUT,iTt:RETURN 
8000 INK 10,13: INK ll,13:GDSUB 40100:PAP 
ER IOîLDCATE 1,24:PRINT" 'iMPER IlsLO 
CATE 4,24:PRINT GPACEJI17I:CL=21:!NK 10, 
6:INK ll,20:ENV 1,2, 1,1, 44, -1,0 
6010 FOR F=l TO 4 
B020 REBTDRE 59100 




8030 FOR L=l TO 4! 

8040 READ D,N1,N2,N4:IF INKEV(=CHRtl!3) 

DR INKEït=' " THEN SOUND 135,0:RETURN 

B050 SOUND 1,N2,D,1 

B040 SOUND 2, NI, D, 2,1 

G070 SOUND 4,N4,D,1 

80BO PAPER OiLOCATE CL,24:PflINT' ":CL=CL 

-19/(45MI:IF CL<4 THEN INK 10,4,6 

B090 NEIT L,F:INK 10,4 

B100 FOR F=J TO 2000:NEÏT:GDSUB 40100:RE 

TURN 

10000 60SUB 55000: J=1:BDSUB 570OO:CLSIO 

10010 CLSÉ4:F0R F'1! TO 13:L0CATE 20,F:P 

10000 60SUB 55000: J=1:BDSUB 57000:CLSI0 

10010 CLS16:F0R FMI TO 13:L0CATE 20,F:P 

APER 0:PRINT" , iNEIT:L0CATEI4,2,2:PRINT( 

4, 'LE MOT LE + LDMË-:CLS#7 

10020 FOR F=0 TD 1î Ï=376-F*64: C0=7-FjMQV 

E M.ïiDRANR 576,0,CO:DRANR O,-4B,C0:DRA 

NR-574,0,CQ:DRANR 0,48,CD:NOUE 14,Ï-2:DR 

ANR 574,0,C0:DRANR 0,-44,DO:DRANR-574,0, 

CDîDRAKR 0,44,C0:F0R R=l TO BiNDVE 11*44 

tR,VrDfiAKR 0,-4B,C0:NEIT R,F:BOSUB 7000: 

GOSUB 54O00 

101OO GOSUB 40100: INK 3,13:L0CATE 1,24:T 

t="Coiiîtjnne du VoyBlle'iPAPER 0:PEN 3:!B 

HAUT,8TliINK 3,3:F0R F=l TO 9:RAND0HHE 

mE:CALL 4BB03:IF 0PT>3 THEN GOSUB 1000 

ELSE 5=1 

10110 INK S,5,1B-4ï(S=I):S0UND -4HS=l A 

NO DPT>3l-lHS=2l-2*<QPT<4),GQfS,10,10 

10120 Kl=UPPERfllNKEriliIF WO'C'AND K( 

OTTHEN 10120 ELSE INPC 5,1B-A*(S>1J 

10130 IF W»'E* THEN 10170 

10140 H=INTIRND(t)#90HI 

10150 KI=M(H)iïtlHl='0'jIF ht='0" THEN 

10140 

10140 GOTO 10190 

10170 H=l»T(RNDllltllO)M 

101B0 B-CKHIiBIHJ.'OMF Kt='0 - THEN 

10170 

10190 PAPER OtPEK 4:L0CAI£ 2+ï»IF-l),3i ! 

DHAUT,BK*:L(IF)=KI 

IO20O FOR N=l TO 400:NEIT NsNEIT F: IF OP 

T)3 THEN GOSUB 10000 

10210 GOSUB 8000 

1O30O If OPTd THEN S=1:SDSUB 10320:G0T0 
10340 

10310 FOR F=l TO 2:60SUB 40000:60SUB 103 

20tF0R N=l TO 400:NE<T N:NEÏT F:60BUB 40 

000 r GOTO 10360 

10320 CALL (BB03:G0SUB 40100rlNK 3,13:L0 

CATE I,24iTt='NDNBRE DE LETTRES ?':PAPER 

0:PEN 3rlDHAUT,(Tt:INK 3,3:INK S,5,lB-4 

ffS=ll:S0UND-4i(S=[ AND DPT)3)-l»(S=2l-2 

*(0PT<4I,B0)S, 10,10 

10330 At=UPPERfUNKEÏt):IF At('2'0R At>' 
9-THEN 10330 ELSE NL(S)=VALIAt)iIF 0PT(4 

THEN RETURN 

10340 INK S,!B-6tlS=l):LDCATE 2-17HS=2l 

,16:PAPER S:PEN 4: !DKA0T,BA1:«DVE 32*1M 

NL(Gl=1)-541't5=2l,lZB:DRANR 0,32,S:DRAN 

R 31*[»(NL(B1=4),0,S:HOVE 32+l'(NL(S)=41 

-544t(S=21,142:DRAW 31+HINL(G1=4),0,S 

10350 RETURN 

10340 SS=S+1: JF SS)2 THEN SS=1 

10370 D=GS:IF NLIGI^NLISSITHEN D=S 

I03B0 IF 0PK4 THEN S=l!SS=2:D=i 

10400 CALL 1BB03:6*NL(D):60SUB 40100: INK 



3, 1 3j LDCflTE 1,2<:T*='ENTRE TES'+STRf fNL 
IDM + 1 LETTRES'sPEM 3i iDHALTT , tT*s INK 3,3 

:INK D,5,18-*»(I=n 

10(10 FOR F=l TD NL1D) :SOUND -4**D=1 AND 
BPT)3l-l»ID=2l-2»(0PT<4l,B0tD, 10,10 
10420 At=UPPERI(lNKEYIMIF flt<*fl"OR M>" 
2"THEN 10420 
10430 LOCflTE 2+2t<F-ll,7:PEN Tfl'tHAUT.M 



"lEOTO 1048 


10440 NEïT L 

10470 INK D,1B-4»(D=11:60TO 4000 
10480 NËIT FilNK . i 3 - ê * ■" 3 = l .- 
10500 IF 0PK4 THE» S=l(D«!iDD*li ELSE OD 
■D+ItIF DD>2 THEH DD=1 
10510 CflLL S6B03:60SUB 40100: I NK 3,13lL0 
CATE 2,24:TM , !iOT VALIDE (0/N) 7'rPEN 3: 
IDHAUT,fTt:INK 3,3: INK DD,5,18-6HBD=ll! 
3fllMM»iBM AND OPT >3ï-l*IDD>2>-2* tOPT 
<4> ,BO*DD, 10,10 

10520 flï=UPPERJUNKEY*l :IF M-'N'IffiN IN 
K DD,18-4f[DD=l>;60TD 4000 
IO530 IF Al="0"THEN IKK QD , lB-i* CDD = i .■ : S 
OTfl SOOO 
10540 GOTO 10520 

20000 6D5UÏ 55O00:GOSUB 57O00:CLBlO:60SU 
B 700ÛJPAPER OrPEN 3:L0CATE 2,3:T*='tJNE 
AUTRE PARTIE î'ilDHAUT.JTtlLOCATE 4,9iTI 
=■ iû-di . .Non> ■: ;DHALr,ÉT*sBDSUB 54000:605 
UB 59000 

20010 IF Kf^OTHEN 20100 ELSE IF KtO'N 
"THEN KI=UPPER*( INKEVf) sGDTO 20010 
20020 BOSUB 21OO0iTt='ALOflS, AU REVOIR 7 
"iLOCATE 2,3::DHAUT,!Ti;INK 3,3sSGUN0 7, 
200,20, 10:CALL 1BB03 

20030 K*=UPPER*(INKEY*J:IF Kt="0'THEN CA 
LL ELSE IF K1="N"THEN 20100 ELSE 2OO30 
2OI00 BOSUB 21000iLOCATE 4.3îT*="fl£ME .0 
PTIDN ?-i lDHAUT,0T*t 1NK 3,3:SDSUB 59000 
20110 IF Kt="0' THEN BOSUB 40000<BDT0 21 


20120 IF «='«■ THEN RUN 
20130 Kf=JPPERJilNKEïtl:60TD 20110 
21000 INK 3,13iL0CATE 1,3:PR1NT SPACEK3 
9):R£TURN 

22000 K=0:J*!H)= , ":LOEATE 12,17:PRINT"? 
VCALL 1BB03 

22010 Kt=UPPERtllNKEÏÏ)iIF KI-"THEN 220 
10 

22020 IF Ki=CHRH13)THEN RETURN 
22030 IF ME1WI-1Î7 THEN K=K+UIK>0)ilF 

K=D THEN «HI)""iBOTII 22O60iELSE JIIN) 
'LEftiJHN),Lf.N(JtiN))'H!K)(li':60IC 22 
040 

22040 K=KU:1F M THEN K=B]60TQ 22010 
22050 Jl(NI=JtlN)tKt 
22060 LOCflTE 14,17;PRINT JKNlf *:GQTO 
22010 

40000 S=S+liIF S)2 THEN S*liRETURN:ELSE 
RETURN 
40100 INK 3,13;LDCATE 1,24:PAPER 0:PRINT 

SPflCE*(3"?ï : INK 3,3:L0CATE 1, liRETURH 
55000 FDR F=l TO 1S: INK F,13:NEH:RETURN 
56000 INK 1,24: INK 2,19: INK 3,3: INK 4,0: 
INK 5,5:INK 6,26:INK 7,B:1NK B.lilNK 9,1 
6:INK 10,6:INK 11,20: INK 12,22: INK 13,12 
:INK H,B:INK 15,15:RETURN 



57000 KlN0DIIIO,l,20,l,25iPAP£RIO,OiPENIO 



57010 61=1:D1=10:H1=19:B1=22: PAPEH41 , 1:P 

ENII,4 

57020 SZ=ll:D2=20;H2=19:B2=22:PflPER»2,2: 

PENI2.4 

57030 B3=4:D3=7:H3=15:B3=18:PAPERt3,l:PE 

N 13,4 

57040 B4=l4:D4=17:H4=15iB4=lB:PAPEfit4,2: 

PENH, 4 

57050 ltlND0IH5,l,2O,l,lOiPAPERi5,5!PEN15 

|3 

57060 NIND0M6 ) l,20,ll,13:PflPE«i6,15:PEN 

16,6 

57070 KINDCM7,l,20,l,10:f>APERt7,0iPENt7 



RI4.1 

5709O HINDON*] ,61,01 ,H1 ,B1 : U ] HDDH t2 , E2 , D 

2,H2,B2!KlNDBNI3,63,D3,H3,B3:tlIN00Nt4,64 

,D4,H4,84 

571O0 RETURN 

58000 60SU8 5B900:E0SUB 5BIQQt6CSUB 5900 

0: RETURN 

5B0IO BOSUB 5B9QO:G05UB 5B500:6DSUB 5900 

0: RETURN 

5B020GOBUB 5B930iBOSUB 56100:SOSUB 5900 

OïBOSUB 58910:GCSUB 5B93O:S0SUB 53500: ED 

5UB 59000: RETURN 

5B030 EOSUB 58940:BD5UB 5B100iGOSU6 5900 

0: RETURN 

58040 GOSUB 5B940:BBSUB 58500iGUSLlB 5900 

0:fiETURN 

5B100 Tl="< LE CGHPTE EST BON i'iPEN 3:L 

CCATE 9,li!DHAUT,ÎTlLL0CflTE 11,.3:PSJNT 5 

TRIN61I17,CHRJI214II 

58110 PEN 2:LDCATE l,ll:PRINT - Buand CFC 

vous le deiande, tapei les trois chif 

très de votre CDipte." 

5B120 LOCATE I.HiPRINT'Lentree des res 

ultats se fera en tapinttoui 1» caracte 

res if' une opérations lem 100*4=4001 puis 
an appuyant sur ENTER pour chique oper 

ation." 

58130 EOSUB 5B960i60SUB 5B920:RETURN 

5B500 Tt='> LE MOT LE PLUS LONS i":PEN 3 

iLOCATE B , 1 : ! DHflUT , *T* : LOCATE 10.3:PR1NT 
5TRINEt(19,CHRi (2161) 

5B510 PEN 2:LDCATE 1 ,9i PRIHT'C-CDnsonne 

i V=voyel le*: LOCATE 1 , 1 i:PflIKT"fluau>if CPC 
vous le deiande, Upez le noicre de 
lettres du tôt le plut long que vous 

avez trouve." 

5B520 LOCflTE l,I5:PfiINT'Puis, au signal, 
entre: une a une les lettres coaposan 
t ce Mt." 

5B530 LOCflTE I,lB:PRINT-Ve U illei vous as 
surer de la validité de ce lot en consul 
tant le dictionnaire. 1 
5B540 BOSUB 58960:6DSUB 5B920:RETURN 
5B900 PEN liLOCATE l.iiPRlNT'Vous allez 
jouer dix (ois de suite selnnli règle su 
ivaote i - :RETURN 

58910 INK 1 , 13: INK 2,13:INK 3, 1 3 : CL5: F?E7 
URN 

5B920 INK l,0:INK 2 , 1 : 1 NK 3,3:RETURN 
5B930 PEN liLOCATE l^iPRlNT'Vous allez 
jouer altemativeient aui 'CHIFFRES' 




i* LETTRES'.-sfiETURH 

5B940 IF 0PT=4 THEN OPTI^'CHIFFREB'.'EL 

BE OPTI*" 'LETTRES'." 

5B950 PEN liLOCATE l^iPRINT'Vous allez 

jouer ilternativeient au< '♦DPTÏiRETU 

RN 

56960 TM'ATTENTIDN AUI ERREURS DE FRflPP 

ES !!!":PEN 3:L0CATE 2,21i IDHAUT.STtiPEN 

liLOCATE 4,25;PRINT"TAPEI UNE TOUCHE PO 
UR CONTINUER.": RETURN 
59000 CALL SBB03:RESTQRE 59I00:ENV 2,1,8 
,1,127,-1,16 

59010 ENV l,t,6,l,127,-l,32:ENT 1,1,8,1, 

1, -B,1,1,-B,1,1,B,1 

5902O FDR F=l TO 45 

59030 Kt=UPPERtUNKEVll!lF KtO"THEN SO 

UNO I35,0:RETURN 

59040 READ D,N1,N2,N4 

59050 SOUND 1,N2, 0.15, 1,1 

59060 SOUND 2. NI, D, 15, 2 

59070 SOUND 4,N4,D,15,1,1 

590BO NEÏT F 

59090 RESTORE 5910O:GOTO 59020 

59100 DATA 24,159,159,159 

59110 DATA 36,119,159,190 

59120 DATA 12,159,190,239 

59130 DATA 24.119,159,190 

59140 DATA 4B,095,119,159 

59150 DATA 48,119,159,190 

59160 DATA 24,142,142,190 

59170 DATA 4B, 119, 142, 179 

59180 DATA 24,119,142,179 

59190 DATA 48,119,159,190 

59200 DATA 7.4, 000 ,476 ,956 

59210 DATA 24,000,000,000 

59220 DATA 24,159,159,159 

59230 DATA 36,119,159,190 

59240 DATA 12,159,190,239 

59250 DATA 24,119,159,190 

59240 DATA 46,095,119,159 

59270 DATA 46,119,159,190 

59280 DATA 24,095,119,159 

59290 DATA 48.0BO, 106,127 

59300 DATA 24,089,119,142 

59310 DATA 48,0BO, 106,127 

59320 DATA 24,000,319,633 

59330 DATA 24,000,000,000 

59340 DATA 24,080,104,127 

59350 DATA 48,071,069,119 

59360 DATA 24,071,089,119 

59370 DATA 48,080,095,119 

59380 DATA 48,095,119,159 

59390 DATA 24,119,159,190 

59400 DATA 48,095,127,150 

59410 DATA 24,106,150,190 

59420 DATA 72,119,142,284 

59430 DATA 24,142,142,264 

59440 DATA 24,127,127,190 

59450 DATA 46,119,142,179 

59460 DATA 24,119,142,179 

59470 DATA 46,119,159,190 

59480 DATA 24,095,119,159 

59490 DATA 24,142,142,239 

59500 DATA 24,127,127,190 

59510 DATA 48,119,142,179 

59520 DATA 24,119,179,284 

59530 DATA 48,119,190,239 

59540 DATA 46,000,000,000 

45535 SPEED WRITE IiSAVE'CHLEl" 
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McSTRAD est un utilitaire qui 
permet le transfert d'une par- 
tie de l'écran vers une zone 
mémoire, et l'opération inver- 
se : la reconstitution d'une 
partie de l'écran à partir des 
données sauvegardées au 
préalable dans la mémoire de 
l'ordinateur. 

Ces transferts, au sens pro- 
pre du terme, s'effectuent 
grâce à deux commandes 
RSX. 

La première, |SWIN (pour Store 
WINdow), sauvegarde une zone dé- 
limitée de l'écran dans la mémoire. 
Sa syntaxe est |SWIN, x, y, Ix, ly 
Les deux paramètres x (avec 1 < = x 
= > 80) et y (tel que 1 < = y - > 25) 
constituent ici i'origine de la partie à 
transférer. Les deux arguments sui- 
vants Ix et ly définissent la taille de 
la fenêtre à sauvegarder (Ix : nom-, 
bre de colonnes : ly : nombre de li- 
gnes). Toutefois, il faut prendre gar- 
de au mode dans lequel ce trans- 
fert s'effectue : en effet, si en 
mode 2, le nombre de caractères 
d'une ligne à transférer s'écrit Ix, en 
mode 1 pour sauver x caractères 
sur une ligne, il faut que Ix = x" 2 et 
en mode pour le même nombre x 
de caractères lx = x* 4 
La deuxième commande, RWIN 
(pour Recall WINdow), effectue le 
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transfert des données stockées en 
mémoire par |SWIN vers l'écran 
pour reconstituer la partie sauve- 
gardée. Cette commande ne néces- 
site aucun argument particulier (elle 
s'écrit donc |RW!N) car elle emploie 
ceux utilisés auparavant avec |SWIN 
(il est donc déconseillé d'essayer 
de faire |R WIN avant |S WIN) 
Le fonctionnement de la routine 
est extrêmement simple : elle se 
contente de décomposer chaque 
caractère à sauvegarder en huit oc- 
tets (en mode 2 du moins) : un oc- 
tet pour chaque ligne qui compose 
un caractère puis d'effectuer l'opé- 
ration inverse pour le réafficher à l'é- 
cran. Ce qui permet d'ouvrir et de 
fermer très facilement une fenêtre à 
l'écran (comme sur le Mclntosh 



d'APPLEparexemple). 
Le programme de démonstration 
montre l'une des applications pos- 
sibles de cette routine : 
-lignes 230 à 590: implantation 
de la routine en lang >ge machine à 
l'adresse SAO0O (aiiention, sans 
modification cette routine n'est pas 
relogeable). Le POKE &A02F, &80 
en ligne 240 indique à la routine l'a- 
dresse de la zone mémoire où com- 
mence le stockage des données 
(dans ce cas : &8000: d'où le ME- 
MORY &7FFF). Cette adresse peut 
être modifiée a volonté, il faut l'im- 
planter en &A02E (partie basse) et 
&A02F (partie haute). Plus l'espace 
réservé sera grand (donc l'adresse 
de début plus petite) et plus le nom- 
bre de données sauvegardées se- 
ra important. 

- ligne 630 : redéfinition des direc- 
tions du joystick afin de les faire agir 
de la même façon que les flèches 
de curseur (la touche FIRE faisant 
office de COPY pour la validation 
du choix), 

- ligne 71 : ti$ est la variable con- 
tenant le titre de la fenêtre à affi- 
cher. CH contient le nombre de 
choix dans la fenêtre. H est la posi- 
tion horizontale de cette fenêtre 
(colonne) et V la position verticale 
(ligne). Le RESTORE 1100 sert à 
réinitialiser le pointeur de DATA de 
façon à ce que les données sui- 



Une ligne téléphonique est à votre disposition, v 

fonf en contact direct avec la rédaction. Ceci e: 

vice sans égal ! Respectez simplement les horai 

jours -que nous vous indiquons ; 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 

VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera ref' 

dépensez pas inutilement votre argent .' 

Le numéro : 99.52.98. I I, 





150 'm CFC ^ ♦" ^ \d 



vantes qui seront lues soient les 
choix contenus dans la tenêlre. Au 
retour du GOSUB, la variable CH 
contient le numéro du choix sélec- 
tionné. 

- ligne 720 : branchement sui- 
vant le choix effectué. 

- lignes 730 à 920 : exécution de 
sous-programmes suite aux bran- 
chements (rien n'interdit d'y placer 
à nouveau des fenêtres). 

-lignes 940 à 1060 : affichage de 
la fenêtre et sélection du choix (la 
taille de la fenêtre est calculée auto- 
matiquement à partir du nombre de 
données et de leurtaiile). 
-ligne 1100: données concer- 
nant les fenêtres à afficher (cf ligne 
710). 

Maintenant que tout est clair (enfin, 
je l'espère), il ne vous reste plus 
qu'à intégrer ce sous-programme 
dans vos propres réalisations afin 
de les rendre plus esthétiques. 
Alors, bonne chance... 
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110 'Ht H: STRflD 

120 Ht pour AH5TRAD CFC 464 
130 'ut Ici HOEBEKE HARK 



110 't« IMPLANTATION DE LA ROUTINE A55E 

KBLEUR mi 

220 ' 

230 AD=tAO00iHEN0RY UFFF 

2*0 BEAU flJilF fl*="FIH - THEN POKE (A02F, 

IBOiCALL lAOOOiBOTO 630 ELSE POKE AD, VA 

Lf"t'tAtl:AD=ADMiGOT0 240 

250 DATA [,9,A0,21,1A,A0,C3,!I1,BC,1! 

240 DATA A0,C3,32,AQ,C3,E9,A0,53,57,47 

270 DATA CE, 52, 57, 49, C£, 0,0,0, 9, AO 

260 DATA 45, 33, 88, 41, 0,80,28,40,4?, 47 

270 DATA 29, 20,41, D, 7F, D, 0,23, 22, 27 

300 DATA FE,4,C0,DB,6i,7,DD,6E,4,E5 

310 DATA DD, ii, 5, DD.iE, 4^5,01,46,3 

320 DATA DD,6E,2,E5,DD,46,l,DD,iE,0 

330 DATA 22, 24, AO, El, 22, 22, A0, El, 22, 20 

340 DATA AO,E1,22,1E,AO,2!,0,CO,AF,32 

350 DATA 30,AO,ll,50,O,3A l 3O,AO,3C,32 

340 DATA 30^0^^,20^0,69,28,3,17 

370 DATA 1S,EF I EB,2A,1E,A0,19 I 2B,22,26 

380 DATA A0,2A,2E,A0,22,2A l AO,2A,2t,AO 

370 DATA 22,28,AO,22,2C,A0,AF,32,30,AO 

(00 DATA 32,31,A0,Cl),B7,4O,3A,Jl,AO,3C 

410 DATA 32,31,A0,4F,3E,e,G7 l C8,2A,28 

420 DATA A0, 11, 0,8,17, 22,20, A0, 22, 28 

430 DATA AO,18,E2,2A,2A,A0,E5,2A,22,AO 

440 DATA E;,C1,D1 1 2A,2C,A0,ED 1 B0,EB 1 22 

450 DATA 2A,A0,3A,30,AO,30,32,3O,AO,4F 

440 DATA 3A,24,A0,B9,2B,C,2A,2C,AO,ll 

470 DATA 5O,O,l9,22,2C,AO,IB,0J,AF,32 

480 DATA 30,AO,09,2A,2E,AO,22,2A,A0,2A 

470 DATA 24,A0,22,2B,A0,22,2C,A0,AF,32 

500 DATA 3I,A0,32,30,A0,CD,ID,A1,3A,31 

510 DATA AO, 3C, 32,31, A0,4f,3E,B,B7, CB 

520 DATA 2A I 2B,A0,11,0,B,19,22,2B,A0 

530 DATA 22,2C,A0,1B,E2,2A,!C,A0,E3,2A 

340 DATA 22,A0,E3,CI,D1,2A,2A,AQ,ED,B0 

550 DATA 22,2A,AO,3A,3O,A0,3C,32,30,AO 

540 DATA 4F.3A, 24^0^9,28,0,11, 50,0 

570 DATA 2A,2C,A0,I9,22,2C,A0,C3,1D,AI 

580 DATA AF, 32, 30,A0,C9,0, 0,0,0,0 

590 DATA FIN 

400 ' 

410 'i" TRANSFORMAT IDN DES DIRECTIONS i 

0YSTICK EN TOUCHES CURSEUR "» 

620 ' 

630 KEY DEF 7Z,1 ,2*0 1 244:KEY DEF 73,1,24 

1,245;KEY DEF 74, 1 ,242,246s KEY DEF 75,1, 

24I,247i KEÏ DEF 74,1,13,13 

640 ' 

650 *H INITIALISATION ECRAN Ht 

660 ' 

470 HGDE l-.m 0,0:1NK ],24iBDRDER liPAP 

ER liREN OiCLSiCLB I 

666 ' 

690 'im PREPARATION FENETRE H» 

700 ' 

710 tll-'EIENPLE DE FENETRES'iCH»4iH-28i 

V=10:RESTDRE 1100:60SUB 940 

720 ON CH 60SUB 7»0,790,B40,770]LBCATE I 











780 RETURN 


770 '* 


i Traitaient de 11 deiutieie optio 














830 RETURN 


840 '* 


tt Tnitiiiot di II troiiitiE optl 














BB0 '■ 


h Triiteient di 11 quitrleiî opti 


on m 

















• BDUS PR06RAME DE TBAITEHENT DE 



FENETRES f 
950 ' 



940 L0CATE l ( iïPR«Tii'chiF0R !■! T8 CH: 
READ CHtlDiNEIT 

770 TA60FF:l>LENITl*)illA=CH:F!)R 11=1 TD 
CH: IF LENiCHMIlDLO THEN LD=LENICHHI 
1)1 

980 NEIT I)I:LD=LQ+4:BA:V+CH*2!lHND0li H, H 
<lD'!,V,BA*l;!SNIN,M,L0+2,CH*4;ClSiNIN 
DON 1,60,1,25 

990 lD=lo+liMiB-4-liY*37B-<V*i4-12l-9i 
LK0i8-B*l:LY=-HCH+2H14t41-5rDI*fH-l+ 
(L0-LEMITIt))/ÎHSiDï-!9a-lïiii(-iiII»Hi 
8- I i Y1*39B- (VI 14-8 1 -9i L I «UWM 4+1 I L2=-2 


1000 PLOT l,Y,0:DRAN IHl,YiDRAN I+LI,Ï+ 
LViDRAH Ï.WiDAAM I.YiHOVE DI,DY:TASiP 
RINT TltfiPLDT ll,Yl,OiDRAtl H+Ll,«t«W 
H )1+LI,Y1+L2:DRAN *!,YltL2iDRAH U,Y1 
1010 ï"HtB-l!Y'39B-UV+2)tl6-14)-9!LI'L0 
iB-14MiLY-16»ch-4-3!ll-Hf8MiYl»394-(l 
Wi)*UMlH"l-liBÏ-c42iU*Ki*HI*liLÏ 
— i*lt-4:Dl=H*B+4;D2=3?4-i(v+chl*16) 
1020 TASDFFiPLDT i,y:DRAH »+l«,y:DRAN »+ 
h,y+lyrDRAN x,y+lyiDRAK x,y:FQR 1=1 T0 
cfisLOCATE h*3,ï*i+2imiNT th*ti I j ïHEïT:P 
LOT dx.dyiDRAN d<'ll,dy:DRA» dx+Ll,dy+12 
îDRAN d«,dy>12iDRAN dx , tî/: ch=L i a*-" iMHI 
LE ifOCHRIU3) AND jtOCHRtlWBI 
1030 PAPER QîPEN liLOCATE ht|,v+ch+2iPRI 
NT' , ichllchljSPACEtllo-LEN(chJlchll-4) 
1040 Bf>":HHILE BtOCHRf 12401 AND btOC 
HR4I74!) AND bf<>CHR*(13)iBt=INKE¥*iHEHD 
iAI<BfiPAPER hPEN OiLOCATE h+ 1 , v+ch+ÏJ P 
RINT' ■jchtlchhSPACEtllii-LEM(th*lchll- 
41 

1050 {h»ch-lil=CHRIIÏ40mit(i>ll + (it=CHR 
*(24IMt(ch<nls»EltD 
1060 PAPER hPEN 0:L0CATE h+2, w+ch+2i PR1 
NT CHRt 12441 |eht(etll[EHM 12471 1 IRNINiRET 
URN 
1070 ' 
1080 Ht DONNEES CONTENUES DANS LES FEN 



1100 DATA PREHIERE OPTION, OEUÏIENE OPTIO 
N, TROISIEME DPT10N, QUATRIEME OPTION 



(Jeux, 



LA MOMIE INVISIBLE 



Claude LE MOULLEC 




Malheureux ! Vous avez osé 
profaner la pyramide du pha- 
raon Fégafatéfes. Il est trop 
tard pour faire marche ar- 
rière : vous devez ramasser 
les diamants éparpillés dans 
le tombeau sans vous faire 
toucher par l'âme Invisible du 
défunt pharaon. 

Si vous trouvez les six tableaux trop 
faciles, vous avez la possibilité d'en 
créer d'autres à la manière de Lode 
Runner. Les explications sont in- 
cluses dans le jeu. 



r^ v " V/ M 



10 REH 

20 m 

30 REH 

40 REH 
50 flEK 

60 m 



REH i 



CLAUDE LE MOULLEC 
83 RUE J0LI0T CURIE 



TEL H 38 H Z4 
CHAR6EUR N0HIE 






110 REH 

ns m 

120 H0DE liBDRDER 15: [NK 0,1: 1NK 1 , ?Û : I M 

K 2,0s INK 3,24»PflPER OjELSiHINDGH 11,1,4 

0,15,24:PAPER H.liCLS 11 

130 LOCflTE 2,Z5rP£N 3:PR1NT CflWtiMJf* 

L.H.C SOFTWARE nov Ri' 

140 FOR h=l ro t0:«=lNT(RNDti40)*l;y-INT 

IRNDi224)+17i:PL0T «.y.liNEH 

150 y=0:FCR h=l T0 25;>=INnRNDH5l+l:y= 

ytiiIF y>140 THEN B0T0 170 

160 PLDT l,16*y,3iDRAH 44Q,14ty 

170 NEII 

180 pOsFQR h=lÉ T0 144 SIEP 2:PLDT l,h, 

0:DRflK lty,h;y=y+7.5:NEÏT 

HO PEN OiFQR h=l tO I5iL0CATE h,!4:PRIN 

T CHRJ(145):NEn 

200 y=Û:F0R h=l TD 20i«=I>IT(RND*l5l*l!y= 

y+iiIF y>140 THEN 220 

210 PLOT l,l4+r,||J)RM l+(yi4l,14+y 

220 NEÏT 

Z30 FOR MU T0 444 5TEP 2:PL0T 320,320 

,2:DRAH h,l44:WJlT 



Ly^-t^N/s^v 



210 FUR h=46B T0 540 5TEP IiPLOT 320,320 

,1:DRA* t),144:MEIT 

250 FOR h=160 TD 320 STEP 2:PL0T 254,224 

,2:DRAH b,9ÉlNEU 

260 FOR h=322 TD 394 STEP 2:PLDT 254,224 

,liDRAH h,96:NEKT 

270 FOR h=32 TD 170 STEP 2iPL0T 112, 112, 

2:DRAH h,64tNEIT 

280 FOR h-172 TD 208 STEP 2iPL0T 112,192 

, UDRflW ti,64iNEÏT 

290 PLOT 325,320, 2 lORAK 444, 144 «DRAW !32 

,16B!DRAK 320,320 

300 FOR H TD 3:PL0T 320,320: DR*» 444*1 

hflil, 144* (hfili NEIT 

310 PLOT 254,224:DRAN 320,96iDRAN 380,11 

2:DRAN 254,224 

320 FOR h=l TD 3«PL0T 254,224:DRAH 320+1 

htl4l,94+iht4lillEIT 

330 PLOT 112,192:DRAN I70,44iDRA1 202,72 

iORAH 112,192 

340 FOR M TD ZjPLOT 112,l92iDRflN 170+1 

h«101,44+lhf5liNEÏT 

350 PLDT 320,320, llMAÏ I90,H4:PL0T 254 
,224:DRA* 172,112iPL0T ll2,192;DRAIi 30,4 

4 

340 FOR ti=l TD 360 STEP 2iDE6:PL0T 580,2 
BOiûRA» 5B0+32tC0Slhl,280+32*SlN(h):NEn 

370 bl*=" ■icl*=" ':PRIKT CHR1(22)+CHRII 
11 

3G0 DIX BtUOhDIfl CIUO) 

390 SYMBOL AFTER 32:11=0 

400 phS**L A M Ti I E I « V I S 1 1 

L E" 

410 FOR j=l 10 LENIphtliFDR T=0 TD 7iP=P 
EEK(HINEH+HIASCIHlDtlpliJ,i, 1D-32I tB+Tl 

420 i(TI=PiNE1(TiBYHBQL U0,il0),il0l,ill 

1,1(11, i(2I,i(2), i(31 ,i(3liSYHBDL 141, ■( 

4),iI4),iI5>,iI5),iI4),iI4>,iI7I,i(7I 

430 Al-[HR$(l40)+CHRtU0)+CriRJ(8)+CHRt(l 

1l)+CHRtlll) 

440 60SU8 490 

450 PEN 3:LDCATE j+2,3:PRINT At;:5DUND 2 

,50,7,5,0,0,1 

440 NEIT 

470 FOR h=l TD 20iblt=blttbt(hliclt=clï» 

ctlhliNFIT 

4B0 PRINT CHRS(221+CHRtl01:RlJN "'■Mii* 

490 li=LltJsbIllll=CHfilI140l:t*lll)*CHR* 

1141) 

500 TA6:PL0T 439,1,2 

510 HOVE 20+(jH6;,370:PRINT ttlUI] 

520 MOUE 2Q+(j»141,354:PRINT cfllll) 

■530 TABOFFrRETURN 



v ^v^v / 




80 REH r > 

90 REM i TEL 94 3B 94 24 i 

îoo m i i 

no REn iimuimmmiHummi 
120 REH 
130 REH initialisation 

140 REH 

150 REH iiiniimill 

140 SYHBDL AFTER 199 

170 SYHBDL 200,4,6,40,12, 13, 14, 104, Bilrçl 

*=CHR* 12001 

180 SYHBDL 201,4,4,24,44,14,24,34,34:bg2 

(=CHRt 12011 

190 SYMBOL 202,94,96,28,4B,72,8,22,14ibd 

1KHMIM2I 

200 SYHBDL 203, 96, 94, 24, 114, 8, 24, 36, 34:b 

d2l=CHRI(2031 

210 SYHBOL 204,153,90,60,24,24,36,34,34: 

btI-CHRi(204! 

220 SYMBOL 205,0,255,255,118, 114,96,192, 

64ipal=CHRl(2Q5) 

230 SYHBOL 206,195,255,153,124,34,24,0,0 

iia»ef=CHRH206) 

240 BVHBOL 2O7,4,6,24,46,8,30,33,64:b5gl 

=CHR1(207):5YHBOL 203,94,96,24,114,14,12 

0,13ï,ïibsdI=CHRli20B> 

250 5YHBÛL 209,247,7,112,113,4,110,224,2 

47 

260 SÏMBOL 210,255,153,24,24,24,24,24,24 

IllMHItHïlB] 

270 BVHBOL 220,255,129,129,129,255,129,1 

29,I29:fiet=CKRt(220) ■ 

200 SYHBOL 221, 14, 52, 110, 22Ï, 221, 251, B6, 

i4:ail$=CW.Ri(221l 

290 EïHBDL 223, 255, 0,0,0,0, 0,0, 0:glut=CH 

RII2231 

300 SYHBOL 224,0,126,126,124,0,239,239,0 

310 5YHB0L 225,0,0,0, 16, 40, B4, 40, 16tdiaï 

=CHR*t225) 

320 SYnBOL 224,0,0,0, 14, 16, 14, 14, 255spic 

CMCHRH224) 

330 SYHBDL 227,24,248,24,24,24,31,24,24 

340 SYMBOL 228,26,24,20,12,28,24,20,12 

350 SYHBOL 229,0,127,15,111,111,111,94,2 

54iirf=CHR*I209l 

360 SYMBOL 230,124,66,44,64,126,2,2,44 

370 nrt=CHRtl22l+CHRllO):trl*CHRH22)+CH 
Rf 11» :e^t=nr*+" " 

3ao reh imifimmiHitiniii n 

390 REH 

iOO REM dessin et variables de base 

iiO REH 

420 REH : : : :i: ! 1 r:: : : ::: : :: J I tt: 

430 HODE liBORDER OilHK 0,0: [NK I,2J:1NK 
2, 24: ]HK 3,4iPAPER 0:CLS 
440 HINDOU I1,10,38,1,23jPAPER I1,0ïCL5 
IliNINDOM (2,2,6,4,6iM1NDDH (3,2,6,2,23 

450 EHV 4,15,-1,1:ENT 3,20,3,5:ENV 2,5,2 

,2iENT 2,2,-5,2,3,-2,2,2,-10,2 

460 JIIH j(40,241ita=0:sc=0:ïie=5ii=10iy= 

3 

470 GOTO 3450 

480 CLSiBOSUB 500:60TB 1070 

490 CLSeGOSUB 500:8010 1070 

500 PLOT l,399,3:DRflN 1 10,399: DRAW 110,1 

7:DRAN 1,17:DRAH 1,399:PL0T B,391:DF!AH 1 



02,391: DRAK 102,25:DRAIt 8,25:0RA* 8,391 
510 PLOT 1,399:DRAI( B,391iPL0T 110,399:0 
RAI 102,391:PLDT UO,17iORAN 102,24:PLOT 

1,17:DRAH 3,25 

520 PLOT 14,352,2:DRAH 96,352:DRflH 96,30 
2:DRAH 14,302:DRAH 14,352 
530 PEN liLDCATE 2,2:PRINT'RADAR":LDCATE 

3,g:PRINT>TAB-: LOCATE 3,I2:PRINT 'BCO'i 
LOCATE 3,14:PR!NT "AIL'iLOCATE 3,20iPEN 
îiPBIMT'VIE'iLOMTE 7,22:PR1NT ■ ■ 
540 PEN lîFDR h=2 TO 4:LDCATE h,22:PRlNT 

bgltiNEÏTiPEN 2:L0CATE 4,10:PR1NT 'l':L 
OCATE 4,14:PRINT"0 , iBDS0B 550:60TD 540 
550 LOCflTE 3,1B:PEN liPRINT A1LI+" "+AIL 
NIETU8H 
560 PEN liFDR h'2 TO 23:L0MTE 9,h:PR!NT 

•rtiLOCATE 39,h:PRINT irl:NEIT:PEN 2:F0 
R W TO 39:LDCATE h,24:PRINT oalsNEIT 
570 PEN 3:L0CATE B,24:PR1NT as* 
5B0 RETURN 

590 REH iitiiu IIIIHIUH 

400 REH 

410 REH dessin tableau 

620 m 

630 REH : liiiiltl llillll 

640 ERA5E a:DlH a(40,24) 

650 REAB ■ur,pi5,he,dia,pic 

440 PEN UFOR h=l TD euriREAD ij.f.g 

470 FOR c=d TO JiLDCATE g,c:PRINT trfial 

q,c)=4:KEJT ciNEIT h 

6B0 FOR h=l TO f>as:READ d,f,g 

490 FOR c=d TO d LOCATE c,g:PEN 2:L0CAÎE 

r,g:PRlNT pa*: s 'c ,ol =1 iNEXT El NEIT h 
700 PEN liFOR h=l TO he:READ d,f ,q 
710 PRINT nrliFOR tt TO f :LOCftTE g,c:PR 

INT hel:alg,r.)=3iNEIT c:NEIT h 

720 PEN 3:FDR h-i TO diaiREAD d,f 

730 LOCflTE d.fiPRINT diaf:a(d,n=5iNEn 

740 IF pic=0 THEN GOTO 780 
750 FOR ti-1 TO pkiREAB d,f 
740 LDCATE d,f:PRINT pitrtllW.fWlMElT 



770 PEN 2:LDCATE 3,10iPRINT 


780 RETURN 


790 REN Mllillli HHI 


BOO REM 


310 REH vie -1 


820 REN 



Ban vie=vie-l:fin=OiPRlNT nrliCLS I2:LDC 

ATE x, y: PRINT eff 

B50 IF a(«,yl=3 THEN PEN liLDCATE »,y:PR 

INT net 

840 IF al»,yW THEN PEN 3tL0CATE i,y:PR 

INT piccf 

B70 IF vle(0 THEN 60TO 2440 

880 PEN 3:L00ATE 8,23:PRINT asIiLOCATE 8 

,24:PR1NT CNRt(149):SOUND 4,20,1 

B90 PEN liFOR h=2+vie TO BiLDCATE h,22:P 

RINT bglIiFOR t=l TO 50:NEIT:L0CATE h, 22 

sPRINT bg2tiFDR t«l TO 50:NEIT t:LOCATE 

b,22iPRINT " ":NEIT hiLDCATE B,22:PR1NT 

bglJ 

900 SOSUB 910:G0TD 950 

910 FOR h=22 TO 1 STEP -1:PEN liLDCATE B 

,h:PRlNT nrfibfltiPEN 3: LDCATE 8,h+l:PRI 

NT asliLDCATE B,li+2:PRINT CHR$(149):S0UN 

D 4,20, liFOR t=l TO 30:NEIT tsNÉIT h 

920 PEN liFOR b=B TD lOîLDCATE h,l!PR!NT 



bglliFOR t=l TD 50: NEÏT: LOCflTE b,l:PRIN 
T bgZfiFOR t=l TO SOsNEïT tiLODflTE h,l:P 
RIHT ■ "iNEIT h 

930 FOR h=l TO 3:L0CflTE lO.hiPPJNT ctl:F 
DR M TO 50 iNEITr LOCATE 10 l tiiPRIMT " 'i 
NEiT hiLDCftTE lO^iPRINTboif 
940FDRh-2 TO 23iPEN 3iL0CATE B,h:PR]NT 

' 'iLDCATE B,h+l:PfiINT astiSOUND 6,20,1 
:FOR t=l TD30!NEJI tiNEIT hiRETURN 
950 i=dx!y=dyixl=dx!iy[=dyl;PEN 3iL0CATE 

Kl.yliPRINT uctsGDSUB 2630iIIHIlE INKEV 
ÏO'MfEND 

w t$*mmnF j(=- ihen no 

970 LOCflTE il, ylîPRINT e(l 

980 IF it-' ■ THEN CL5 UiCLS H16OTD 10 

70 

990 GOTO 1250 

1000 FUR h-i TO 15:0UT 1BC00,2i0UT MDOO 

,49rFUR t=l TO 70: N£XT:SDUND 4,1500+h»10 

0,20 f 7,0,0,hiDUT 1BC00,2;0UT IBD00,43:F0 

R t-1 TO TOiNEÏTsHEKT h; DUT 4BC00,2r0UT 

iBB0O,46 

1010 FOR h=l TD 2000rNE!TrRETURN 

1020 REPI iimmimmuii util 

1030 REH 

10(0 REH tableau +1 

1050 REM 

1060 REH MimimmflElIKiiimiM! 

1070 ta=t*+l:PEN 2:LDCATE 3,10iPRINT nrt 

; ta 

1080 ON ta GOTO 1090,1100,1110,1120,1130 

,1140,1150 

1090 he*=CHR* C230J îRESTORE 4340:605UB 64 

0idiai=Ûiglu=2rdx"10!dy=3id>;l*37;dyl=3:G 

0T0 B40 

1100 het=CHRI 12201 iflESTDRE 4400:6O5UB 64 

0jdiaa=0:glu=2sdx-10:dy-3f dKl=2(>EitrI=22i 

GOSUB 550:6010 900 

1110 pa*=CHRf C2Z4) sRESTDRE 446Û:6QSUB 64 

0:diaM0!glu"2!dx']0!dy=3idxl=20idyl=2:G 

DSOB 550:60TO 900 

1120 pif=CHRII229):hef=CHRll227l!REST0RE 

4520i605UB 640;cfi a*=0: glu=2: dx=f 0tdy=3i 
d*l=20! dyJ=9:B05LFB 550;G0T0 900 
1130 paf=CHRI(224I:het=CHfitl22BliREST0RE 

4590iS0SUB 440idiii=O:glu=2iO«Mû!dy=3: 
dxl-25idyl=2iE05UB SSOiGOTQ 90Q 
1140 paf=CHRH229lifi6|;CHRI(230liRE5TORE 

4660iEDSUB 640idiniO:gluï2!d<=10rdr3i 
dxl=20idyl»14i605UB 350iGOTD ÎOO 
1150 PEN ZiLOCATE 16,12iPRINT"UNE AUTRE 
HD/HI" 

1160 AMlNKEÏtiIF af'" THEN 1160 
1170 aî=UPPER((atl!lF aM'O' THEN RUN 
I1B0 IF a*»»«" THEN END 
1190 GOTO 1160 

1200 REH 11 mu iîiti 

1210 REN 

1220 REH routine principal* 

1230 REH 

1240 ren mimmimini utini 

1250 50SUB 2600:5DSUB 2420 

1260 IF fm=l THEN GOSUB IOOO16OTQ B40 

1270 IF JOrlO)*B THEN iens-liBOSUB 2590i 

GDTO 13B0 

1280 IF JDYCOJ-4 THEN sem^iGOSUB 2590i 

BOTD 1510 

1290 IF JOVIOM THEN GOSUB 2590iGDT0 16 

50 

1300 IF J0ïl01=2 THEN GOSUB 25?0iG0TQ 19 



1310 IF 0OÏIO)=16 THEN GOSUB 2590iGOTD 1 



750 

1320 SOTD 1250 
1330 REH itwij 
1340 REN 
1350 REH 
1340 REH 
1370 REH 1 



133- . 



<l:!f 3 



,y) = l 



l(x,y)M THEN 
x=«-l:60TO 1250 
1390 LOCflTE x-l,yiPRINT HtiIF alx-l,y)- 
3 THEN PEN liLOCATE x-l,yiPRINT heï 
1400 PEN liLOCATE x.yiPRINT trl;bg2I;FDR 
t=I TO 50iNEITiIF al<,y)=3 THEN 6DT0 14 
10 ELSE LDOATE x.yiPRINT effiLOCflTE >,yi 
PRINT bglf 

1410 IF a(x,y)*5 THEN GOSUB 2IGÛ;a(*,yl> 
0:1F diae=dia THEN GOSUB 2320 
1420 IF ali,y*l>=0 THEN GOTO 2030 
1430 IF i(.,ytll=7 THEN EDTO 1450 
1440 GOTO 1250 

1450 LOCflTE x,yiPRINT eftiLDCATE x,y+l:P 
R1NT trt;titJ:fin=liy=yHiBOSUB lOOOiEOÏO 
G40 

1460 REH IHI1U IIMII 1 

1470 REH 

14GO REH vers la gauche 

1490 REH 

1500 REN II! nu h 

1510 x=HiIF a(«,y)=4 THEN x*x+liEDT0 1 
250 

1520 IF a(i,yl=l THEN <=nliGDT0 1250 
1530 LOCflTE x+l,y:PRINT e(t:IF *l**l, y)= 
3 THEN PEN I j LOCflTE <+l,yiPRINT het 
1540 PEN hLDCATE x.yiPRINT tr*;btf2t:FDFJ 
t=l TO 50:NEJT:IF afx,y)-3 THEN GOTO 15 
50 ELSE LDCATE «,yiPRINT eMiLOCATE «,yi 
PRINT bdlf 

1550 IF a(x,y)=5 THEN GOSUB 21B0ialx,yl- 
0:1F diai=dia THEN GOSUB 2320 
1560 IF alx,yl=IQ IHEN BOTD 2330 
1570 IF alx,y+I)=0 THEN GOTO 2030 
15B0 IF i(»,y*I)=7 THEN BOTD 1450 
1590 GOTO 1250 

1600 ren nimmimiiiimmnmii 

1410 REH 

1620 REH vers le huit 

1630 REH 

1640 reh iiimininiiiiiiiiiniiifiii 

1650 IF al>,yl=3 THEN LOCAIE x.yiPEN liP 
R1NT nrJjhe* ELGE 1250 
1640 y=y-lilF al«,yl=3 THEN PEN liLOCATE 
>,y:PRINT trl;oUiF0R t=l TO SOiNEIT ti 
GOTO 1250 

1670 ON sens GOTO 1480,1490 
1480 LOCflTE x,y:PRINT bgltiGOTO 1250 
1670 LOCATE x,yiPRINT tdlfiSOTO 1250 

1700 rek mmmiiiiimi mim 

1710 REK 

1720 REM saut 

1730 REH 

1740 REH 11:1111 liimtmisinii 

1750 IF a(<,yl=3 THEN GDTO 1250 

1760 ON sens 60TD 1770,1820 

1770 IF alxM,y+ll=7 THEN EOTD 1790 

1780 IF a(»+l,y*UO0 THEN GDTO 1250 

1790 FOR h=l 7D 3ix=«U:IF al»,yl-4 OR a 

Ix,y)=3 OR a(x,y)=5 THEN m-\ 

1800 LOCflTE K-l,y:PRINT eftiLOCRTE i.yiP 



1G10 IF a(«,y+li=0 THEN 60TD 2030 ELSE 1 

250 

1820 IF alx-l,ytl|.7 THEN GDTO 1G40 

1030 IF al(-l,y+lH>0 THEN GDTO 1250 

1B40 FOR h=l TO 3ix=«-l:IF ai«,yl=4 OR 1 

(«,y)=3 OR a(»,yl=5 THEN m*I 

1B50 LOCflTE «+l,yiPRINT iftiLOCflTE «,yiP 

RINT bsdliNEU 

1860 IF aii,y+ll=Û THEN BDTO 2030 ELGE 1 

250 

1670 REH immilfiunillllllllllllll 

1880 REH 

1G70 REH descente ou dépose de l'ail 

IÎ00 REH 

1910 reh iinummitmimmitiHï 

1920 IF a(x,y*ll=l «NU ali,yl<)3 THEN BO 

TO i960 

1930 IF al*,y+H03 THEN GOTO 1250 

1940 y=y*l:IF alx,rl)=0 THEN LOCflTE *,y 

-lîPRINT eft ELGE LOCflTE x,y-liPRINT nrl 

;hel 

1?50 LOCflTE i.yiPEN lîPRINT trtfbttfFDR 

t=l TO 3ÛINEIT t:60T0 1250 

i960 IF glu*0 OR al*,y)=G THEN 1250 

1970 PEN3;LDCATE «,vMiPRINT trt i9 lijlia 

'*,yl=BiLOCATE l+Iglm21,18iPRINT efligl 

u-glu-liBDTO 1250 

19BO reh umimmiiiiiiiiiiiiuitii 

1990 REH 

2000 REH chute libre 

2010 REH 

2020 REN iilltl !Ui!IJ!i:i 1(1 

2030 LOCflTE x.yiPRINT ■ 'iGDSUB 2590 

204O y>y+liBDSUB 2600îPEN lîSOUNB 1,46+5 

on,3,5 

2050 IF al<,yl=0 THEN sori=5Dn+10iL0CflTE 

x,y:PRlHT btl 

2060 IF a(x,y+l)(>0 THEN ion*0 

2070 IF alx,y+Il»2 THEN GDTO 1250 

20SO IF a(x,y+ll*3 THEN GOTQ 1250 

2090 IF alx,y*l)=l THEN GOTO 1250 

2100 IF ilK,y+|>=7 IHEN GDTO 1450 

2110 IF a(x,y+l)-5 THEN 60SUB 21B0iâix,y 

+ll=0!iF diaMdia THEN GOGUB 2320 

2120 FOR t=l TO 20îN£(T t:G0T0 2030 

2130 REH liiiiiiliiiMiiMiiitiiu 

2140 REH 

2150 REH rubis +1 

2160 REN 

2170 REH IMiIHl lIIMIHHillilll 

21B0 dia»=diaitliscD=scoHOiPEN 3iLDCATE 
2,14:PR1NT scoîoosmO 

2190 IF a(>l,yl)=9 THEN LOCflTE xl,yl:PRI 

NT eftiPEN OrLOCflTExl,yHl:PRINT trligl 

ut:a(xl,yll=0 

2200 IF alxl.yltD^l OR alxl,yll=3 THEN 

LOCATE xl.yliPHINT trt;aeet 

2210 SOUND 2,4O,O,5,2,2:F0R h^l TO lOiLO 

GATE xl,yhPEN lîPRINT ueliFDR t-1 TO 2 

OiNEITiLOCATE «l.yltPEN 3iPRINT aiefiFDR 
t=l TO 20:NE<TiNEIT 

2220 IF ilxl,yl).Q THEN PEN liLOCATE «1, 

yliPRINT eltiRETURN 

2230 IF jl<l,y[).3 THEN PEN liLOCATE .1, 

ylîPRINT nrlihefiRETURN 

2240 IF a(xl,yl)=4 THEN PEN liLOCATE xl, 

ylîPRINT nrtiirliRETURN 

2250 IF alxl,yl)=5 THEN PEN 3:LDCATE «1, 

ylîPRINT nrlidiafiRETURN 



22i0 RETURN 

2270 REM utllIlillIMmilllIItlilllll 

2280 REM 

2290 REM ouverture de 11 porte 

2300 REIt 

2310 REM !litll!!I!!!ît!l!lllMIT!ll!!l 

2320 SOUND 3,20, 100 T 1 5 ,0, 3: FOR h=l TO 10 

iLOCATE 9,23iPEN 3: PfilHT ir*:FDR t=l TD 

30:N£ïT t;LOCAT£ 9,23:PRINT e(l:FQR t=l 

TD 30;NEIT tiNEÏT hia(9,23* =10îRETURN 

2330 FOR h-1 TD 25 iSDUNO 1 ,0, 15, 15,4, ,5 

iLDCATE ll,29,23;PRINT U,CHR»I32UF0R t 

-1 TO 50iNE<T tiNÉïT hiCLS I? 

2340 LOCflTE 9,23:PR1MT eJJiPEN 1 : LOCflTE 

B,21iPfiINT bdlliFOR t=l TO 60sNEIT tiLOC 

ATÎ 3,23iPRlNT ttdîfîFOR t = l TD 60;NE*T t 

2350 LDCATE 8,23iPR]NT bglliFDR t«l TO 4 

OiNEïT tiLOCATE 8,23:PEN 3:Pfi]NT isliLOC 

ATE B,24:PRINT CHR*( 149) tPEN liLOCATE B, 

22:PRINT tgll 

2360 60TD 1070 

2370 rem immimmiiimiiiii 

23B0 REM 

2190 REM depliceient de l'aie 

2400 REM 

2410 REM IIMIIIIIIIIIIMIIIIIHIMIII! 

2420 IF pose-1 MN 2530 ELSE BDSUB 2610 

2430 IF y>yl AND i{«l,yl+lî«i THEN BDTO 
24BO 

2440 IF ilxl.ylMI'O THEN yl'yl*0.5iB0T0 
2500 

2450 IF y)yl AND illl,yl+ll-3 THEN yl=yl 
♦0.5:BDTO 2500 

2460 IF y(yl AND i(ll,yHI"3 THEN yl'yl 
■0.5:BDTO 2500 

2470 IF y<yl ANfl alxl,yll=l THEN y]=yl-0 
.5; GOTO 2500 

2400 IF x>>] THEN xl=»]*0.5i60TD 2500 
2490 IF «<<1 THEN <l=xl-0.5 
2500 IF alx^yll-B THEN pos*-Uil«l,yll* 
9 ELSE BDTO 2520 

2510 PEN liLOCATE xl,yliPRINT trJjaiet 
2520 60SUB 2620iRETUHN 
2530 IF al»,yJ-9 THEN finM:alx,y)=OiRET 
URN ELSE RETURN 

2540 REM lii tll!!llllimimiii 

2550 rem 

2560 REM radar 

2570 REM 

25B0 REM Hllittitl !iil nmi 

2590 PLOT (xi2)+l6,152-ly»2l,0(RETURN 
2600 PLDT (<i2l+lt,352-(yi2),liRETURN 
2610 PLDT lil»2)+16,352-lyl»2] ,Q:RETURN 
2620 IF TESTUxl»2)+16,352-lyl*2l><>0 TH 
EN Hb-I 
2630 PLDT (il«2M6,J52-(yl*2l,2iRETURN 

2640 REM i miiitniillilimUM 

2650 REM 

2660 REM PERDU 

2670 REM 

26B0 REM iiniti imlitintlllll 

2690 HHILE INKEÏtO"iKEMD 

2700 RESTORE 2730 iHI NDDH 9,29,6, 16:CL5:II 

INDOH 10,31 I 7,17:PAPER 1:CLS: MINDQM 1,40 

,1,23 

2710 PEN OiB=B:FDR 1=1 TO 2:FDR K»ll TD 

26 STEP SiFOR Y-B TO fl+3:L0CATE ï.ïiFDR 

J=l TO 4:READ AiPRlNT CHRtlAljiNEKT JiNE 

IT ïi SOUND 1,0, 15,15, 1|,15iNEïT l:i=13:N 



EU ] 

2720 FDR t>l TD 2000 iHEïT i HHILE INKE'tO 

■■iNENOiCALL IBBlBtERASE ïiBOTO 3B0 

2730 DATA 214,1*3,143,215,143,32,32,32,1 

43,32,213,215,213,143,143,212 

2740 DATA 214,143,143,215,143,12,32,143, 

143,143,143,143,141,32,12,143 

2750 DATA 141,215,214,143,143,143,141,14 

3,143,213,212,143,143,32,12,143 

2760 DATA 143,143,143,143,143,140,140,32 

,143,111,111,32,143,143,143,141 

2770 DATA 214,143,143,215,143,32,12,143, 

143,32,32,143,211,143, 141,212 

27B0 DATA 143,32,32,143,143,32,32,143,21 

3,215,214,212,32,213,212,32 

2790 DATA 143,143,141,143,143,140,140,12 

,141,131,131,12,141,143,143,143 

2800 DATA 143,141,143,215,143,32,32,143, 

143,143,143,212,143,32,211,215 

2810 REM imiiiiimmmtmiimwi 

2B20 REM 

2B30 REM création et sauvegarde 

2840 REM 

2860 CLSiERASE a:OIM j(40,!5lipat=CKRI<2 
29J :60SUB 500:GOSUB 560 
2B70 CLS tliCLS (liPLOT 14,152,0:DRAK 96 
,152iDRAN %,I02iDRAN 14,102iDRAN 14,352 

2BBO FOR fl=2 TO 23!a(9,hl-4iaI39,ti)=4:NE ■ 
UiFORW TO 39ialh,24l'liNEIT 
2B90 PEN liLDCATE 3,2iPRINT , H=-*irliL0CA 
TE 3,!iPEN 2iPR]NT'T«VpaJ:LDCATE 3,8iPE 
N 1 iPRINT'H="+he*iLOCflTE l,lliPEN liPRIN 
T'R^+diitlLOCATE l,14;PRINT"P="*[>Lct:» 
2900 PEN liLDCATE 2,l7iPRlNT"C=CLS"iPEN 
2:L0CATE 2,20: PR]NT"E=EFF" iPEN liLDCATE 
2,23iPRIKT , F=FlN* 

2910LDCATE tl,l,6iPEN H.iiPRINT tl," 1 
- CHQ1S5IR L'ELEMENT DE'iLOCATE tl,l,9:P 
R1NTI1," DECORS":LDCATE ll,l,12:PRIMT 
tl," 2- DEPLACEMENT AVEC CURSEUR" 
2920 LOCATE ll,l,!5:PRINT 11, 1 3- VALIDA 
TIDN AVEC (CDPlTsPEN 2:L0CBTE 31,20iPRI 
NT-<£NTER>' 

2910 CALL HDIBsCLS IliPEN 2iL0CATE 10,4 
:PR!NT pat:allO,4)=llPEN 1 
2940 fy=2:p«M0ipy=2i LOCATE px.pysPRlNT 
CHRÏI43I 

2950 kt=I»KEÏtiIF M»" THEN 2950 
2960 kl=UPPERt(H)!lF k*="M" THEN bl=irl 
lt»4iM*lifyWtBDSUB 11B0 
2970 IF B«T MN h*=pa*:c=l :co=2s Fy 1- 
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29B0 IF xl="H" THEN b*=he*i c=3i co=L i iy 1= 

SiGOSUB 33S0 

2990 IF k*="R" THEN bJ=dial:c=5:cQ=3:fvl 
=11:6DSUB 13B0 

1000 IF kt='P" THEN dt=plcclic'7:co=3:fy 
!*14iE0SUB 11B0 
3010 IF kt='C THEN GOTD 2860 
3020 IF «t="E" THEN bI=eft!C=0 
1010 IF kt="F- THEN 60TD 1190 
3O40 IF k$=CHR!(240) AND py>2 THEN BDSUB 
3100:pypy-l:GD5UB 3170 
3050 IF H=CHRH2411 AND py(24 THEN EDSU 
B I100ipy=py+1:6DSUB 3170 
3060 IF kt=CHRt(242l AND px>10 THEN 6DSU 
B 1100:p*=px-liG0SUB 3170 
3O70 IF kt=CHRS(243) AND p«<36 THEN GDSU 



B 3I00:px:px+1i605UB 3170 

3080 IF kMCHRt!224) THEN LDCATE px,py:P 

EN coiPRINT nrljt!t:ilpx,py)=C!lF bl=e(t 

THEN PEN 1 ELSE PEN 

3090 LDCATE pi,pyiPRlNT trJ;CHRf(431l60T 

D 2950 

3100 tra=a(p«,py) 

3110 IF tra=0 THEN LDCATE pi.pyiPEN OiPR 

INT CHRH141MRETURN 

3120 IF tttsi THEN LDCATE p«,pyiPEN 2iPR 

INT nrljpitiRETURN 

3110 IF tra=3 THEN LDCATE px.pysPEN liPfl 

INT nr(;hetîfi£IUNIt 

3140 IF tra=4 THEN LOCATE p«,py:PEN 1 1 PB 

INT nrtiirtiRETURN 

3150 IF tra-5 THEN LOCATE px,pyiPEN 3:PR 

INT nrt;diat:RETURN 

3160 IF tn=7 THEN LDCATE px.pylPEN 3iPR 

INT nrJiplcct: RETURN 

1170 IF a(px,py)=0 THEN PEN ULOCATE p«, 

py:PRlNT CHRfl41) ELSE PEN OiLOCATE px,p 

yiPRINT trt|CHRl!43)iRElURN 

31B0 RETURN 

1190 LOCATE i,25iPEN UPR1NT' J - JE 

U : S - SAUVEGARDE" 

3200 Al=[NKEit!]F al=" THEN 1200 

1210 it=UPPERII>t)iIF af-'J" THEN 60TD 3 

240 

3220 IF jf'"S" THEN BOTO 3300 

3230 60TD 1200 

3240 OOSUB 3250:PRINT firJiÈDTO 9D0 

3250 BDSUB 3390:PEN l i LOCflTE 3,25:1NPUT 

'NOMBRE DE DIAMANTS "idil 

3260 GDSUB 1390iCLS IliSOSUB 500 

3270 ti=l!diai=Oiglu>2idi*10ldY'l!dil'15 

:dyl=3:EDSUB 3100 

32B0 IP a(dxl,dylK>0 THEN d<l'dxlM:dyl 

■dyl+liBOTD 3280 

3290 RETURN 

3300 GOSUB I250iGDBUB !I90iPEN liLOCATE 

1,25sPR1NT' press iny key xNen Rei 

dy'iCALL IBB1B 

3310 GOSUB I190:PEN liLDCATE L,25ïPR1NT" 

NOM DU FICHIER : ";:PEN 2iPRINT "TABLEAU' 

3320 DPENDUT VTABLEAU" 

3130 FDR h=l TO 40iFOR g=l TO 25 

3340 PR1NT (9,*lh,g):NEn tjsNEÏT h 

3350 PRINT t9,dia:PfilNT l9,dxliPRINT 19, 

dyl 

3360 CLO5E0UT 

3370 BDSUB 3390;PEN liLOCATE 12,25:PR1NT 

"SAUVEGARDE TERMINEE'îFOR T=l TD 3000iNE 

IT :RUN 

33B0 LOCATE 2,fy:PRINT eM!fy=fvliPEN 3i 

LDCATE 2,fyiPRINT CHRt 12411! RETURN 

3390 PEN OiLOCATE l,25iPRINT STRIN6H35, 

CHRtll43)lsRETURN 

3400 REM un nnmnninti 

3410 REM 

3420 REM ienu carrefour 

3410 REM 

3440 REM iiliinilillll Mil H 

3450 CLSiPEN IlLOCATE 11,5:PRINT STRINB) 

12I,"* , 1iL0CATE U,21:PRINT STRIN6tl21," 

<"):FDR h=6 TO 20iLOCATE Il.hsPRINT '*•> 

LOCATE 31,fiiPRINT't"iNEÏT 

3460 PEN 2iL0CATE 14,7|PRINT'1 -"jiPEN 1 

iPRINT' EXPLICATIONS" 

1470 PEN îiLOCATE 14,10:PRINT'2 -"pPEN 

IîPRINT 1 JEU 1 




5480 PEN 2tLDCAT£ I4,13:PRINT"5 • 

llMINT" CLAVIER* 

5490 PEN îiLOCflîE 14,14jPRINT"4 -'pPEN 

liPRINT- CREflTIDN- 

3500 PEN 2:LDCAr£ i4,WiPRIKI'S -- ( :PEH 

JïPRINT- CHflRBEMENT- 

3510 M=INKEï*iIF il»"' THEN BOTD 3510 

3520 PftlHT CHR*{7)iIF «••]> THEN BOTO 4 

010 

3530 IF At'"2" THEN GOTO 4B0 

3540 IF fl*-"ï" THEN GOTO 3430 

3550 IF to-'f THEN BOTO IBM 

3560 IF At="5" THEN 60TO 3710 

3570 EOTO 3510 

3580 REM mitsmttitm- nuit 

3590 REN 

3100 REN version clavier 

3410 REM 

3420 ren tifiutmmini'mimmîi 

3630 dl$*CHRt(243>id2t=CHRJi242);d3ï=CHR 

1 12401 !d4)*CHRK241)id5)=[HRf 12241 

3640 CL5:LDCATE 14,liPEN ItPRlNrHODE CL 

AVIER'îPEN 2îLDCATE 14,2fPflINT- 

3650 PEN 3iL0CATE 1,4!PRINT' L'algorytb 
•e du jeu est plu; efficace avec un JOVS 
T1CK aais si vous n'en pos- aedei pis ti 
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3460 PEN IîLOCATE l,BiPRlNT"l250 at=inke 

yftGOSUB 2É00:60SUB 2420" 

3470 LDCATE ] , IOîPRIKT-J 270 IF at=dlt TH 

EN Hns-li GOSUB 2590;60T0 1380" 

36BO LOCATE 1 , J ïîPR 1 HT ■ 1 280 IF at*d2t TH 

EN 5ens=2iB0S(JB 2590t60TD 1510" 

3490 LOCflTE UiUfUK'im IF j!=d3i TH 

EN G05LIB 2590:6070 1650" 

3700 LOCflTE 1,19:PRINT"1300 IF a»=d4t TH 

EN 60SUB 2590:6010 1920" 

3710 LOCflTE I,22:PRINT"1310 IF iMSÏ TH 

EN GOSUB 259O:G0TO 1750" 

3720 LOCflTE 33,24: PEN 3iPRINT"<enter)":C 

ALL IBB16:60TD 3450 

3730 REn tmiiiiiimstimm i: 

3740 REN 

3750 REN chargeient 

3760 REH 

3770 PEU III msill i 

3780 CL5:ERASE iiDin al40,25liGOSUB 500: 

EOSUB 540jpat=CHHH229) 

3790 BOSUB 3390: PEN l:L0Cfl!E 1,25;PRINT" 

CHARGEMENT EN COURS' 
OPENIN "! tableau" 
3810 FOR h»l TO 40iFDR g=1 TC 25 
3320 INPUT §9,ilh,gl[NEn g:NEIT h 
3B30 INPUT l9,diaiINPUT (9,d«li INPUT 49, 
dyl 

3B40 CLOSEIN 
3830 GOSUB 339ÛiPEN liLOCATE 1,25iPRINT" 

CHAR6EHENT TERMINE" 
FOR h=l TO 40iFDR j*| TO 25 
3870 tra=a(h,gl 
3880 IF tra=0 THEN BDTO 3940 
3890 IF tra=l THEN PEN 2:L0CATE h.giPRIN 
T oaliSOÏD 3940 

3900 IF tra=3 THEN PEN liLDCATE h,g:PRIN 
T hei:6DT0 3940 

3910 IF tr«M THEN PEN liLOCATE h,q:PRIN 
T irtiSÛTO 3940 

3920 IF tra=3 THEN PEN ïi LOCATE h.giPRIN 
T dialiEOTO 3940 



3930 IF tra-7 THEN PEN 3iL0CATE'fi,g:PRIN 

T picc* 

3940 NEIT g:NEXT h 

3950 GOSUB 3390ita=lidiai=Orglu=2:di=10i 

dy=5:60TD 900 

3940 REN lifiliiiiiiiiiiniuiitiIJiII 

3970 REN 

3ÎB0 RFA explications 

3990 REN 



4020 PEN 3iL0CATE 1,4:PRINT" Toi être i 
plorateur "îsPEN 2: PR[NT"TULflDflNLDS. " 

4030 PEN 3:L0CATE l,5iPRINT" Toi avoir 

rouve entrée pyraeide." 

4040 LOCATE 1,4:PRINT" Pyraude de "|[F 

N 2:PRINT"FEBflFATEFES "jiPEN 3:PRINT"gr 

nd Pnarahon," 

4050 LDCATE ],7:PRINT" Toi faire «ain t 

4040 LOCATE l,BiPRINP Toi hoate vil... 
4070 LOCATE l,9iPRINT" Toi poursuivi pa 
aie de FEGAFATEFES." 
4OB0 LOCflTE 1,10:PRJNT" Aie invisible, t 
aversir eurs." 
4090 LOCATE l,li:PRINT" Dur, dur pour to 

4100 LOCATE l,12:PRINT" Hais toi 'voir 
u (ili "iiPEN l:PRINT"6H05TBuSTER." 
4110 PEN 3:L0CAÎE 1,13:PRINT" Toi avoir 
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4120 LOCATE 1,14:PRINT" Toi avoir aussi 

vu Ml "|:PEN liPRINT-DRUCULA.' 

4130 PEN 3iLDCATE ],15:PRINT" Toi avoir 

gousse; d'ail,* 

4140 LOCATE ],16:PRINT Ca etri grands î 

ortileges." 

4150 LOCflTE 1,I7:PRINT" Toi avoir peut e 

4140 LOCATE I.IBiPRINT" Si toi faire les 

six tableaux. ' 
4170 LOCflTE 1,19:PRJNT' Hoi donner a toi 

grand pouvoir. " 

4180 LDCATE 1,Z0:PRINT" Pouvoir de fabri 
quer tableau tout seul." 
4190 PEN 1:L0CATE !,22:PRINT" Toi avoir 
tout coipris blablabli 7" 
4200 LOCATE l,23:PRINT" Toi pas bete.Toi 

taper touche " 

4210 CALL tBBIB 

4220 CLSiLOCATE n^PMNPDEPLACENENTS" 
:PEN 2:L0CflTE 15,2;PRINT'mm«Hi.' 
4230 LDCATE l,4:PRINT"Joystick":PEN 1:LD 

CflTE 1,5:PRINT" ■ 

4240 LOCATE 8,7:PRINT CHRf(241ti LOCATE 1 
4,7iPRlNT"= dépose de l'ail" 
4250 LDCATE 5, 9:PRINT"<FIRE> ■ sauf 
4260 PEN 2iLDCATE l,llrPRINT"Clavier"iPE 

N liLOCATE 1,12îPRINT" ■ 

4270 LOCATE 8,13:PRINT CHRfl241 M LOCATE 
14,13:PR1NT"t dépose de l'ail' 
4260 LOCATE 5,15:PRINT"<CDPï> » sauf 
4290 PEN 3:LDCATE 4,17iPRINT STR1N6(I30, 

4300 PEN 2:L0CATE 4,19:PR1NT'<ANY KEYï'i 

LDCATE I4,19;PEN 1:PR1NT"= départ de ta 

bleau" 

4310 PEN 2tLDCATE 5,21:PRINT"(SPACE)":L0 



4320 LOCATE 33,25:PEN I:PRINT"<ENTER>":C 
ALL ÏBBI8:CL6:G0T0 3450 
4330 REM mu datas tableau 1 «•« 
4340 DATA 2,7,5,4,0 
4350 DATA 2,23,9,2,23,39 
4360 BATA 9,39,24,10,13,4,23,38,4,19,26, 
9,29,33,12,15,23,16,29,37,18 
4370 DATA 4,23,12,4,17,36,9,17,22,16,23, 
16,18,23,31 

4380 BATA 11,3,27,3,19,8,32,11,15,17,30, 
17 

4390 REN ***** datas tableau 2 HW 
4400 DATA 2,7,9,14,0 
4410 DATA 2,23,9,2,23,39 
4420 DATA 10,13,4,24,25,4,23,27,8,19,29, 
12,16,33,16,13,35,20,9,39,24 
4430 DATA 4,7,23,8,11,22,6,11,27,12,15,1 
9,12,15,29,16,19,16,14,19,33,20,23,13,20 
,23,35 

4440 DATA 25,3,24,7,26,7,20,11,24,11,28, 
11,21,15,25,15,31,15,19,19,24,19,29,19,1 
4,23,22,23,27,23,32,23 
4450 REM «H» datas tableau 3 ***** 
4440 DATA 2,11,4,9,0 
4470 DATA 2,23,9,2,23,39 
4460 DATA 10,12,4,19,26,3,28,38,3,18,29, 
7,17,23,11,27,33,13,10,13,19,15,20,16,22 
,26,19,33,38,19,9,39,24 
4490 BATA 4,7,13,3,18,37,16,23,21,19,23, 
33 

4500 DATA 35,2,19,4,22,10,29,12,18,15,27 
,18,10,18,18,23,37,2! 
4510 REN «>n datas tableau 4 ***** 
4520 DATA 3,10,5,10,2 
4550 DATA 2,23,9,2,23,39,11,19,13 
4540 DATA 10,11,4,12,20,4,13,33,10,35,38 
,10,16,24,13,20,25,17,28,33,17,13,18,20, 
28,38,21,9,39,24 

4550 DATA 4,23,11,13,19,15,20,23,19,4,9, 
21,17,20,33 

4560 DATA 18,5,15,9,29,9,37,9,20,12,21,1 
4,51,14,14,19,38,20,33,23 
4570 DATA 25,10,17,20 
«;'80 REN H» datas tableau 5 «ut 
4j90 DATA B, 12,6, 10,4 
4600 DATA 2,23,9,2,23,39,5,12,16,8,12,21 
,4,7,24,4,5,34,17,23,15,17,20,19 
4610 DATA 10,16,4,24,30,3,32,34,3,29,34, 
4,21,31,8,16,21,13,26,29,12,32,35,14,56, 
58,11,15,26,14,19,28,21,9,59,24 
4620 DATA 4,23,10,14,23,14,8,12,20,3,7,2 
3,4,23,27,11,23,37 

4430 DATA 16,3,22,7,25,7,34,2,31,7,38,10 
,29,11,33,13,26,20,24,25 
4440 DATA 18,15,29,8,29,24,54,24 
4450 REN ***** datas tableau 4 H*» 
4640 DATA 5,15,4,12,4 
4670 DATA 2,23,9,2,23,59,5,14,24,17,23,1 
9,15,23,26 

4480 DATA 10,15,4,16,19,4,22,25,4,28,31, 
4,34,38,4,14,16,7,18,21,9,21,23,11,30,38 
,10,30,38,11,19,25,15,27,28,15,16,19,17, 
35,38,17,9,39,24 

4690 BATA 7,23,13,17,23,20,10,25,29,17,2 
3,54 

4700 DATA 17,3,25,3,29,3,37,3,14,6,20,8, 
.25,10,38,9,37,14,37,23,27,23,22,23 
4710 DATA 32,10,33,10,15,24,24,24 
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Une des plus grandes diffi- 
cultés de l'orthographe est 
l'accord des participes pas- 
sés avec le verbe avoir, vous 
n'aurez plus d'excuses si, 
après avoir tapé ce program- 
me, vous vous faites encore 
piéger par un participe mal ac- 
cordé. A quand CPC reconnu 
d'utilité publique ? 

Le programme propose un menu à 
4 options, avec un retour automa- 
tique au menu à la tin de chaque 
partie. Il s'agit de : 
-voir la règle 

- taire un exercice (3 au choix) 

- arrêter le programme 

- changer les phrases de l'exer- 
cice 

Chaque exercice comprend 7 phra- 
ses pour ne pas lasser l'attention ; 
l'exercice étant mis en DATAS, il 
est assez facile de l'agrandir. Le tra- 
vail est auto-correctif : si l'élève se 
trompe, le logiciel lui propose une 
aide "pas à pas" sous la forme 
d'une série de questions qui retra- 



cent les différentes étapes du rai- 
sonnement grammatical. Toute l'ai- 
de s'efface au moment où le pro- 
gramme demande à l'élève de don- 
ner à nouveau sa réponse. Le tra- 
vail s'effectue en minuscules accen- 
tuées, à l'aide du pavé numérique 
(voir guide de l'utilisateur). 
- Utilisation 

Le logiciel indique à l'élève ce qu'il 
doit faire (fenêtre en milieu d'écran) 
et comment il doit le faire (fenêtre 
en bas d'écran). 

La dernière partie du programme 
propose une aide à la modification 
des phrases et réponses de l'exer- 
cice, de façon très détaillée. Il con- 
vient donc d'avoir deux versions du 
logiciel : l'une PROTEGEE qui s'a- 
dresse à l'élève et UNE AUTRE 
NON PROTEGEE QUI S'ADRES- 
SE A CELUI QUI SUPERVISE 
L'EXERCICE (enseignant ou autre 
personne compétente). Le "super- 
viseur" modifie les datas et réenre- 
gistre une version protégée sans 
écraser la première : cela fera d'au- 
tant plus d'exercices. 



l m * 

: REN CHARGEUR PART1CIP 

3 RÉH IIIIHIHIMlllllHHIimHlllll 

3 REH 

10 MODE 

20 DM IKJBliPAPER 1 s BORDES 2iCLS 

30 DATA fl,B,C,D,E,F,5,H,i,J,li,L,fl t N.B,P, 

M 

40 LOCATE MiPRINrAAAAAAAAAA'iFDR d"l 
T0 lOOiNEIT i 

30 FOR i=l 70 I81READ ItliliNEIT iiPUPER 
liPEN 4 

60 FOR t«l TD 7:LDCATE 4,6iPRINT Hli):F 
DR t=l TO lOOiNEIT tsMEïT iiEOSUB 300:FD 
R i=l 10 IBiLOCATE 7,iiPH!NT HliliFDR t 
=1 T0 lOOiNEIT tiNEIT i:BDSUB 500 
70 LOCATE B,éiPRINT*fl":FDFJ t=l T0 300sNE 
IT iiSOSKB 500:FDR M T0 IJiLOCfiTF 9,4ï 
PR1NT UliliFOR t»l T0 lOOiNEIT tiNEIT i 
iBDSUB SOOiFOR M T0 13:LDCATE 10,4iPRI 
NT IIIDiFDR M TO lOOiNEIT tiNEIT s : 60 
SUB 5O0:L0CATE 1 1 ,i! PRINT" "sFQR W T0 
lOOiNEIT ti 

75 GDSUB SOOiFOR t=! T0 lOOiNEIT t: LDCA 
TE lî.iiPRINT'A'iFQR t=l TO JOOiNEIT ta E 
DSUB SOOiFOR t=l TD lOOiNEIT t 
00 FOR 1-1 TD 9: LOCATE 13,4iPRINT Util: 
FOR t=l T0 lOOiNEIT tsNEIT iiBDSUB 50Û:F 
OR 1=1 T0 4iL0CATE H,fc:PRENT UIDiFDR 
t»l 10 lOOiNEIT tiNEIT iiBOSUB SOOiEDR i 
■1 T0 SiLQCATE 15,6iPRINT ltdliFDR M 
T0 lOOiNEIT tiNEIT hflDSUB 500 
10 PEU OiLDCATE 5, lfli PRINT' ==="====«" ! 
LOCATE 5,12:PRINT** t C R D'iLDCATE 9, 
UsPSINPD LTiLDCATE 3, lis PRINT'PflRTICIP 
E PASSE") LOCATE 6, lfl: PRINT'AVEC AVDIR'i 
LOCATE 2,21:PR1NT CHRI(lt4)|' Vandenbroti 
ct( O.'iLDCATE 4,2]iPRINT" «■««"=■ 
100 LOCATE S,24iPRlNT I jE charge,,. - 
110 RU*"!" 

S00 SOUND 1,264,20,7,0,0,1 
510 RETURN 



10 ' iitmtiimwiiHii BRANH'AIDE « 
- PRESENTE PAR hihhhwii 



30 ' itimimittmiim VANDENBROUCKE 
DANIEL HH 

40 ' IIIHIIdlllllllllllItlIHIItMIIH 



mmmitt 

50 NODE liBDRDER liEOSUB 930:60SUS I400i 

60SUB WjCLSî 

60 PRINÏI2, ' fW ttlHt t Il W ffi t M M M f M 



70 PRINTI2, ■ «ttt ACCORD OU PARTICIPE 

PASSE tu» * 

B0 PR1NTI2, ■ ihii AVEC AVOIR 

90 PR1NTI2, ' 



100 LOCAIE l3,2,liPRINTI3,'Le particine 
passf eicloyf avec AV0IFfiLOCATEI3,l,2:P 
RINTI3,"s'accorde avec le C.O.D.i si ce 
dernier est cUcf avant II verbe. 'iPRJNT 
lî.STRINSt 140, "e'liPENI3,7iPRINTI3, 'POUR 
TROUVER LE C.OJ.poter 11 question:" 
110 LDCATEt3,Z,?iPRINTt3,-S[IJET + AVOIR 
t PARTICIPE PASSE + SU0I 7*iPRINTI3,' 

120 L0CATEI3, l,MiPRINTI3, "SUJET * AVO 
IR * PARTICIPE PASSE + OUI ?" I PENt3, 1 J PR 

INTIÏ.STWNfiMW.'iMiFOR A= I TO lOOOOl 

NEIT A 

110 LDCATEt3,5, 13tPRINTt3," N.B. SU 

DI s'eiploie pour un C.O.D. d (signant un 

aniial du une chose. "(PRINTIJ,- 

BUI s'eiploie pour un C.0.D, dîslgna 
nt uns personne. "iFOR i*I TD 7Q0O:NEIT i 
i PENI3,liCLS 13 

HO LDCATEI3, 17 ,2: PRIHTtï, * EIENPLE " 
ISO LDCATEI3, 5,4:PR!NTI3, 'J'ii VU 
uni fille' 

160 fW i=l TO 2500:NE*T j 
170 LQCATEI3, 5,14lPRINTI3, 'SUJET t AVO 
IR * P.PASSE t OUI 7":FDR A*l TO 2000:NE 
1T A 
IBO LDCATEI3, 5,12:PRINTI3, ' J'ai vu 

qui 7 UNE FILLE'iFGR 1=1 TO 3000:NEÏ 
T i 

190 LDCATEI3,5,6iPRINTI3, " ":LDCA 

TEI3, 7,7:RRINTI3, 'OUI ? ":FDR a>l TD 2 

SOOiNEUT iiLOCATEK, 15,7i PRINTtJ, ■ 

--"iLOCATE 13,21, i!PRINTI3,CHRHH9)iLDC 
flTEI3,21 ,5[PfilMT*3, CHRt I240UF0R aM TO 

2500 i NEIT i 

200 LDCATEI3,3,?!PENI3,7iPRINTI3, "CD.D 
. pied APRES LE VERBE donc'sPSINW," P 
AS. D'ACCORD du participe passIVOR 1*1 
TO 3500:NEIT arL0CATEI3, 3,10iFOR i>] TD 

3000iNEIT aiCLSI3iPENI3,l 
210 LDCATEI3 h 5,4;PRINTt3, Ml fille que 
J'ii Ivul'iFOR l«i TD 3500iNEIT aiLOCAT 
EI3,2,!6iPRINTI3, "SUJET t AVDIR ♦ P.PA5 
SE + GUI ?":F0R t»l TD 2500:NEIT a 
220 LDCAIEI3,2,1B:PRINTI3, " J' li 

vu qui 7'iFOR i-l TD 30ÛOiNE> 

T e 

230 LGCATEI3,1B,5:PR1NTI3, * "i 

L0CATEI3,2I,6:PRINTI3, 'DUI 7'iFDR t'I T 
2500:NEIT aiL0CATEI3,15,6;PRINTI3, "-- 
— "iL0CATEI3,l5,5iPRINTI3,CHRff240liPEN 
l3,7lL0CATEt3,14,4!pRlNTt3,"OUE"!FDR A>1 

TO 20Û0:NE!T A 

2*0 LGCATEI3,15,3iPRINTI3,CHRI(145):L0CA 
TE«3,15,2tPRINTI3 I CHR$(lS6)iL0CATE43,ll, 

2:PRINTI3,' *iL0CATEI3, 10,3:PRINTI3 ,C 

HRH!5Û)iLDCATEt3 ( IO,3iPRINTI3 ( CHRII241l 
230 PENI3,7iL0CATEI3,l,!liPRlNTI3,"C.0.D 
. pUcf AVANT LE VERBE donc ACCORO'iLOCA 



TEI3,l,12:PRINTI3,'du participe pa»C en 
genre et en noibre' 

260 LQCATEI3,13,13:PRINTIJ,'AVEC LE CD. 
D.'iFOR )=1 TD 5000:NEÏT i 
270 L0CATEI3,23,4iPRINTI3,' VUE " : PE 

Nil,] 

280 FOR a=l TD 6000:NEIT j 
290 60TO 50 



300 



320 b=0:f-0ifa=0 



eierr 



330 ' 



340 CL5I3:CLSI0:LDCATEI0,16,1;PRINTI0,'E 
IERCICE'iFOR T'I TD 1500iNEIT T 
350 DATA Les chiens avaient (poursuivi I 
les cerfs, poursuivi , dhi ,î, cerf s, don, non 
360 DATA 'Les outils? Je les ai (rendu! 
au voisin. ", rendus, oui, Coutils, oui, oui 
370 DATA Les filles ont (cueilli) des en 
aepignons, cueilli, oui, 2, chaapi gnons, non 

3B0 DATA 'Tous lit fruits que j'ai icuei 

Mil, je te les donnerai.', cueillis, oui, 1 

, fruits, oui, oui 

390 DATA Les ailes qu'ils avaient (connu 

I I Paris, connues, oui, 1, aiiei,oui,oul 

400 DATA 'Je leur ai (exptdHI les iettr 

es. '.eipfdU, oui, 2, lettres, non, non 

410 DATA J'iiagini bien la peur qu'Us o 

nt (eul,eue,oui,l, peur,oui,oui 

420 DATA '0! les as-tu lachetd.cei rose 

5?',achet{es,aul,l,r05Bs,aui 1 oui 

430 DATA 'Ces r)gles,il les ont di;t ((t 

udin',(tudi(es,oui,l, r)gles,oul,oui 

440 DATA 'Elle lui a (dlsionO une sorti 

e discr}te',d(sign(,oui,2,sortie,non,nDn 

450 DATA 'Pendant deux heures, Ils ont le 

ouru).Vouru,non,0,non,non,non 

460 DATA ' Ces fourrures, ce n'est pas io 

i qui les lui ai Ivendul.', vendues, aul,l 

, fourrures, oui, oui 

ro tara ■;.„ 3 r 0if neurs ont Id(nichi) d 

es t?';?s.\c-.i;cn(,oui,2,ierles,non,non 

»BO C'iA ' les chiots que j'ai IcaressI 

> (taient ligiors.'.caressts, oui, 1, chiot 

«90 DATA • Elle renonce ialgr{ les encou 

'açeierts eue ton entraîneur lui i (don 

nO.' l aonnls,oui,l,MCDurio i iHnti l oui,ou 

1 

500 DATA 'Je vois que tu as (corriqd to 

n exercice', corrig{,oui, 2, exercice, non, n 

on 

510 DATA 'Je ni l'ai jaiais (vu), cette f 

ille.', vue, oui, 1, fille, oui, oui 

520 DATA ' Duels nuitros avez-vous (de 

eandf) au standard ?",deiand!s,oui,2,nui 

eros,oui,oui 

530 DATA 'La personne qui vous avait (t( 

KphonO, est irriv(e.V(l<pmjri<,non,0, 

non, non, non 

540 DATA 'Nous t'avons (cherchO longtei 

ps, dirent I Lucie, les gir\ons. ",cherch(e 

,oui,l, Lucie, oui, oui 

550 DATA "Voici let lettres que j'ai Ift 

ri 1 1.', (cri tes, oui, 1, lettres, oui, ou! 

560 CLSiOiLDCATEIO,lo,l:PRlNTiO,'ElERCIC 



E'iLDCATE IO,4,2iPRINT)0,'BDEL EXERCICE 
VOULEI-VOUS FAIRE ?*:PRIMTI0: PRINTIO, "Tfl 
PEZ : 1 , 2 ou 3 + >ENTERC slNPUTIO ," 

",CB!0N CB 60TD 570,580,590 
570 RESTDRE 350: 6ÛT0 600 
580 RESTORE 420: GOTO 600 
590 RESTORE 490: 8DT0 600 
600 i=J;F0R («I TO 7iREAD phJ(i) ,bonlli) 
irepCODt(il,natli),repgkJ(i), repavant) (i 
),repaccordl (i) 

610 CLSI0:CLSI2iPRINTI2iPRINTI2," ACCOR 
D DU PARTICIPE PASSE AVEC AVOIR' IPR1NTI2 
iPRINTI2,phl(il 

620 BOSUB 960:LDCATEI0,16,liPAPERI0,0iPE 
NI0,1iCLSIOiPR1NTiO,"EÏERCICE" 
630 LOCATE10,2,4!lNPUTtO, "Ecris le part 
icipe pass(,en respectant la rlgle d'ace 
ord: 'ippfli) 
640 IF pptii)=bojif(i> THEH 60T0 650 ELBE 

GOTD 670 

650 LDCATEIO,10,B:PRlNTtO, 'TRES BIEN... 
"iFDR dr=l TO 2000:NEU driIF (•? 60TD 9 
10 ELSE GDTO 660 

660 PRINTIO,' PASSONS A LA PHRASE SUIVAN 
TE.'iFCR i=l TD 2000iNEÏT aiNEIT i:60T0 
610 

670 IF ppïlilO bondi) THEN BOTD 690 
680 REH «wttHmtHfi correction pas 

a pas iHHIIHiHIHIHI 

690 W+ll L0CATE10,! 0,8: PRINTIO, "CE N' 
EST PAS EIACT...'iPRlNTIO,"Ce n'est peut 
-être qu'une faute d'prthagraphe sur le 
radical, iiis'iPRINTIO, "NOUS ALLONS CHERC 
HER ENSENBLE'iFDR A=l TO 4000iNE(T A 
700 PEH ll,!.PAPEfill,SiPEN IO,7iPAPERIO, 
6 

710 CL5ll:CLSIOiPRINTI0," 
AIDE"iPRlNTI!," RfsuiC des donnles appor 
tles par l'aldi"iLDCATEI0,l,5[PRiNTI0, " 
V a-t-11 un C.D.O. dans cette phrase 
T'ilNPUTID," tapit oui / non. ",codt(i 
) 
720 1F codf(i)- repCODf(i) THEN 60TD 740 

ELSE BDTO 730 

730 PRINTIO, " ERREUR,.. LA REPONSE ETA1 
T ';repCDDtl()iFOR H=l TO 1600:NEIT H 
740 IF repCDD(lil-"non" THEN 60TO B60: E 
LSE PR1NTI1,"CDD - "|repCDDt(!liCLSIO:L 
0CATEI0,7,6:PR1NT lu, 'Le CDD est-il un p 
ronoi (Il ou un noi (217 "iINPUTlO," Tap 
■ Il chlffn-codi i ",c:lF c-nit(I) THEN 

PRINTIO, 'EIACT* ELSE GOTD 750 
750 IF c>2 DR c(l THEN PRINTIO, 'Fais att 
ention I ":PR1NTIO,'Li COd est-il un pro 
noi (1) ou un noi (21 7 "iINPUTIO," Tape 

le chiffre-code suivi de >ENTER< ",ciIF 

c=nat THEN PRINTIO, 'EIACT" 
760 IF cOnat(i) THEN PRINTIO, "Ce n'est 
pas exact;le CDD est un " | : IF natlil'l T 
HEN PRINTIO, 'PRONOM. "ELSE PRINTIO, "NON." 
iFOR hpl TO 1500iNEIT hgiBDTO 770 
770 IF nat(il=2 THEN PR1NT 11, 'le COD es 
t un noi : -jiGDTD 790 
780 IF BitUI-1 THEN PR1NT 11, Me CDD es 
t un pronoi qui reiplace le noi'|;GGT0 8 
00 

790 CLS lOiPRINTIOlPRINTIO, 'Ecris le CD 

.D.- METTONS-NOUS D'ACCDRD -'iPRINTIO,"T 

u tcrlns un noi sans son dtteninantt 

sinon 11 rlponse sera refusle 



pjr le prograiie.'iPRINTtO,' 
VAS-Y.MNPUTtO,' ',gkï(ili 
GOTO 810 

BOO CLStOjPRIHTtûsPHlHTIO , "Ecri s le no» 
reeplacl par le pronoa COQ. 'iPfîIHTIO, " 1 
1 est inutile d'tcrire L 'article, 

sinon la Mponse sera refuile'iPRINTI 
0," VflS-¥*ilNPLT*0," ".gktliliG 

OTO B10 

810 IF gktlilTepgkïtil THEN GOTO B20 E 
LSE GOTO 790 
820 PRINTll.gfctliliCLS tOiL0CATEIO,2,3i 

PRIHTIO,'Le C.O.D, est-il plact avant 1 
e verhe?" tPRINTtOj PHINTIO: INPUTiO, " fit 
ponds par oui / non . ",avantllil 
830 IF avantllil'reoavantttil THEN GOTO 
850 ELSE 60TO 840 
840 PRiNTtû/Ce n'est pis e<ict|li bonne 

rtponse est "irepavantllil 
B50 IF riB»«ntHt)"*Wli' THEN PRlNTIi," 

le CDD est placl avant le verbe.'! ELSE 

FRINÎIl,'le CDD est plac{ aprls le verbe 

660 INPUT IO,'D'apr<s la rlgle, ce parti 

cipe passl peut-Il l'accorder 'jaccordll 

11 

870 IF accordllilOrepaccordili) GQTO 99 

ELSE GOTO BBO 

BBO IF accordïli)=repaccordlli) THEN CLS 
lOsPfilNT tC, 'D'ACCORD, ON REPREND. 'iFDR A 
»1 TD SOOOiNEIT A i PAPERf 1 , : CLS*0i CLS1 1 1 
GQTO 630 

B90 CLSlOiPRlNTtO," LE PARTICIPE PASSE,* 
iployt avec Avoir, S'ACCORDE AVEC LE CD 
.8. Bl CE DERNIER EST PLACE AVANT LE VE 
fiBEi'iPRlNTiO,' IL NE S'ACCORDE JAMAIS S 

1 LE C.D.D EST PLACE APRES LE VERBE OU 
S'IL N'Y A PAS DE C.D.D, '[FOR 1»1 TD 700 
MUT a: 

900 CLSIO!fi=faHtBOTD 860 

910 GD5UB lOBOiFDR j«l TD lOOOOiNEIT jiC 

LSiPRINI iPflINTiPRINriPRINI-L'EÏERCICE £ 

ST TERMINE. -iGOTO SO 

920 END 



930 ' 

titiei fenêtres 

940 HDDE l]MINDDHtZ,l,40,l ,Sl PAPERtZ, liP 

EHtZ,0;HtND0Htl,l,40,b, 10iHlNDDHtO,l,40, 

H,2liNIND0Nt6,5,35,22,25iPENi6,0iPAPER* 
i,]iH!ND0Ni3,l,40,i,24 
950 RETURN 

IbQ ' itiiKiiiMixiiiiitiiiiiKi preie 
ntition iKtnti 

970 CL5l4:PR]NTt6:PR]NTt4, "Ecrire en lin 
meules accentules avec le pavt nuitr 
IqgeiVRINm," ( - 7 | ) ■ | \ ■ 
1 'iPRINTIi," Tininir par )ENTER<" 
980 RETURN 

990 ' 



1000 L0CATE(4,],3iFRlNTI4, "Accord du Par 
titipe Passt avec AY0IR'tPRINTI4;PRINÎi4 
1010 L0CATEH,l9,6iPRINTIVKENU" 
1020 L0CATEi4,l,B:PRINTt4,' VOIR LA. RE6L 

E D'ACCORD 1" 

1030 LDCATEM,i,lQiPR[NTI4,' FAIRE UN Eï 

ERCICE 2' 

104O LDCATEt4,l,12tPRIKTi4," ARRETER LE 

PRaERAHHE 3" 

1050 L0CAÏEt4,i,14:PRINÎl4," CHANGER LES 



taper le cfii 
Hre-code puis >ENTREE< ',CHDII 
1070 CLSMiDN CHOU GDTD 60,310,920,1200 
10B0 ' stiMemsimsMfaiM bilan de 1 
'exercice 
1090 CLSIlsCLStO 

1100 PRINTIl,STRINEt(40 1 "i , hPRINTIl,' 
BILAN DE L'EIERCICEVfilNTt^STAlNGlUO, 
"«'Il 
1110 b^HiPRINTlÛiPRINltO, "Noibre de ph 

rases ttudifes ; "iL0CATEt0,34,2:PR 

INTtO,iiPRINTiO;PRlNTiO,"Nbre de bonnes 

rlpnnses directes. "iLDCATEtO, 34, 4iPRINT) 

0,0 

1120 y=lNTUb/lli]O0J 

1130 PR]NTeOiPRINTeO,"EHIcaciti personn 

elle i "iLDCATEt0,34,6!PRlNTI0, 

n'i" 

1140 IF fOOGDTO 1150 ELSE SDTO 1190 
1150 PRINTIOsPRINTCO, "Noibre d'appels I 

l'aide : 'iL0CATEt0,34,8:PRINTt0, 

f 

1160 IF Mi THEN z=lOOi60TQ HBOiELSE G 

DTO 1170 

1170' fx=lf-falir=INnifx/fH10Q> 

1180 PRINTlOiPRINliO/EfficaciU de cett 

e aide i "iLOCATEiO,34,10iPR1NT(0 

,l?V 

ll90PRlNTe0l]Nmi0,"liprinnte cul / n 
on ( t enter)", tlit.t*UPPERmt>i!f tKN 
ON" THEN GOTO 50 lELSE GDTD 1195 
1195 CLS lOiPRINTIO," BRANCHEZ L'IMPRIMA 
NTE,PU1S REPONDEZ AUX QUESTIONS'iLOCATEt 
0,2,8iPRWI0,'teniner par >ENTER<"iLDC 
ATEI0,2,4iINPUT(0,'Noi et prtnoi ',nliL0 
CATE10,2,6!lNPUliO, "quelle est la dite ( 



Jj/e 



',« 



1197 PRINTIB, "BRAHMAIDE - ACCORD DU PAR 
T1CIPE PASSE AVEC AVGIR'iPRINTIBiPRINTiB 
,"EUve ! >!;" date i'|d( 

1198 PRINTIB, "Exercice No 'jCflf Noibre 
de phrases i'iliPRlNTta, "Noibre de bonne 
s rtponses directes i "|bsPRINTI8,'EHic 
acitt personnelle : *|y!" I"iPRINTtB,"No 
ebre d'appels I l'aide i ■ ; f sPRINTta, "Ef 
ficecitl de cette aide ! *|i|' l'iEDTQ 5 



! -00 



lodifie 



s phrases • 

1210 «ODE 2iPRlNT" Coiient lodifier les 

phrases 7 voici l'ordre des tHients I t 

1220 PRINT 8TRINaH6B,"- , l 

1230 PRINTiPRINT' guilleeets t phrase av 

(c p.passi entre ( I ♦ ferier guilleiit 

i + virgule'iPRINTiPRINT'Ie participe pa 

ss( accordl lou nonl * virgule "iPRINTiP 

RINT" oui ou non + virgule iprlsenci d'u 

n cod)' 

1240 PRINTiFRINT"! ou 2 t virgule (code 

pour COU pronoi ou noi )" 

1250 PRINTiPRINT' taper le noi COD ou le 

noi reiplicl par 1* pronoe CCD + virgul 
e 'iPRINTiPRINT" taper oui, non + virgule 

: cod avant 1* verbe ?l>:PRINTiPRlNT>ta 
per oui ou non tant virgule (accord ou n 




1260 LOCATE 1,17; PRINT GTRINGKBO,' 
PRINT' AVANT DE COMMENCER LA MODIFICATION 

DANS LES DATAG DU F ROGR ANNE, PRE PAR El TO 
UT SUR UNE FEUILLE DE PAPIER. CHAQUE EXE 
RCICE COMPTE 7 PHRASES." 
1270 LOCATE l,23:PR]NT"Appuyer sur C p 
our continuer jsur H pour retourner au 

temi'i 

12S0 Dt=]NKEYl!lF DM" THEN 12B0 
1290 IF H -"C" DR Bl -"c" THEN GDTD 131 

1300 IF Df ■*«■ DR Si .v THEN GOTO Bl 

ELSE CLSiBOTD 1270 

1310 CLSiLOCATE 13,2!PRINT"TDUT EST PRET 
?■ tLOCATE 2,4iPRINT'Taper EDIT ♦ nuliro 

de la ligne I iodifier"iPRINTiPRlNT"po 
ur l'exercice l,lignes No 350 t 410":PRI 
NT SPCI7)i"exercice 2, lignes No 420 I 4B 
'tPRINT SPC17)|'exerclce 3, lignes No 4 
90 I 550" 

1320 PRINTiPRINT'Les nuilros de lignes s 
e succ)dent de 10 en 10." 
1330 PRINTiPRINT' Effacer l'ancienne phr 
ase avec la touche >CLR< plicie sous la 
preiilre lettre \ taper les nouvelles do 
notes et appuyer sur la touche )ENTER<"i 
PRINT 'Appeler une nouvelle ligne etc .. 

1340 PRINTi PRINT'Buand c'est tenint,ta 
per RUN pour vlrifier les eodificatlons 
avant de faire un nouvel enregistreient 
(Ihe qui sera proUgt pour interdire 1' 

1350 PRINT" POUR REVENIR AU MENU 

TAPER H" iPRINT' POUR REVOIR LES E 

ÏPLICATIONS R'iPRINT" POUR CO 

MENCER LES MODIFICATIONS F' 

1360 Df'INKEYfiIF 0»'" THEN I360jEL9E G 
OTO 1370 

1370 IF M"*F' OR Dl""f THEN PRINT'ALLE 
i-ï...':END:ELSE 13B0 
1380 IF D(='n' OR Dt*T THEN MODE liBOT 
990iEL5E 6DT0 1390 , 
1390 IF Of-'R' OR Bf-V THEN BOTD 1200i 
ELSE CLSiGDTO 1350 

1400 REN iccentuation francai 

se et cédille 

1410 REM accents 

1420 SïHBOL AFTER 64 

1430 SYMBOL 12Î, 160, !1Û,*3C,166, 17E, 160, 

131 

1440 KEY 135,CHRt(1231 

1450 EVHBDL 123,16, 18 ,13C, 166, 17E, 140, 13 

C 

1460 kev i;e,CHRsu;s! 

1470 SYHBDL 64, 160, 110,176,10, 17C,1CC,17 

6 

1480 KEV I29,CHR*<64) 

1490 SmBDL 92,10, 10 I 13C,166,160,13E,1B, 

UB 

1500 KEÏ 132,CHRt(92) 

1510 SYMBOL 124,130,18,166,166,166,166,1 

3E 

1520 KEV I37,CHRII124) 

1530 STNBOL 94, US, 124 

1540 KEV I34.CHRII94) 

1550 SYMBOL 93,110,132,136,160,138,110,1 

90,160 

1560 KEV 131,CHRf(93) 

1570 RETURN 
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Que ceux qui n'ont jamais eu 
envie de regarder leurs dis- 
quettes au fond des octets 
me jettent le premier bug qui 
leur tombe sous la main. SEC- 
TORY + permet, en effet, de 
décortiquer votre support * 
préféré. 



L'écran comporte six fenêtres, dont 
les fonctions sont les suivantes : 

- Fenêtre en haut, à gauche : 
COMMANDES en clair, repérées 
par un numéro. 

- Fenêtre en haut, à droite : IN- 
FOS piste, secteur, page et lec- 
teur. 

- Fenêtre du milieu : AFFICHAGE 
du bufferde lecture secteur, (2 pa- 
ges). 

- Fenêtre en bas, à gauche : FOR- 
MAT de la disquette lue. 
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- Fenêtre en bas, à droite : INFOS 
phase résultats du FDC. 

- Fenêtre en bas, au milieu : MES- 
SAGES divers. 

Description des commandes 

• Touches curseur HB : 
Permettent de pointer n'importe 
quelle piste. 

• Touches curseur DG : 
Idem HB, pour les secteurs. 

• Tpuche '0' : 

Affiche page ou page 1 du buffer 
de lecture secteur. 

• Touche'.' : 

Commutation lecteur A ou lecteur 
B. 

• Touche T : 

Lit le secteur pointé et en sort le 
contenu dans la fenêtre centrale. 

• Touche '2' : 

Ecrit le secteur pointé avec le conte- 



nu du buffer, après une confirma- 
tion de sécurité. 
■Touche '3': 

Modifications : affiche la page du 
buffer, une flèche clignotante indi- 
que l'octet pointé. Déplacer cette 
flèche avec les touches curseur, 
sur l'octet visé, (mode déplace- 
ment) et taper ENTER (mode écri- 
ture). Taper ensuite la nouvelle 
valeur, en héxa, puis ENTER. Pour 
sauter un octet sans sortir du mode 
écriture, taper simplement ENTER. 
Pour sortir du mode écriture, pres- 
ser CTRL et ENTER. Pour sortir de 
l'option MODIF., taper '3' en mode 
déplacement. Dans ce mode, on 
peut commuter page ou 1 avec la 
touche '0'. 
- Touche '4': 

COPY : copie de pistes (maximum 
5) avec lecteur. Quatre tormats sont 
proposés, IBM, Data-only, Vendor 
et Non standard. Il faut donc connaî- 
tre le format de la disquette source 
et formater la disquette destination 
en conséquence. 

■ Touche '5' : 

DIR : affiche le catalogue de la dis- 
quette. 

■ Touche '6' : 

FORMAT : formatage de pistes iso- 
lées (ou de la disquette entière) en 
format IBM, Data-only, Vendor ou 
Non standard. Cette dernière op- 
tion permet d'affecter des numéros 
de secteur différents des trois stan- 
dards, (protection de programmes). 

• Touche V: 

BLOC : calcule les numéros de 
piste et de secteur d'un bloc dési- 
gné par son numéro en héxa, en 
fonction du format. 

• Touche '8': 

ID secteur ; lit le premier champ Id 
secteur rencontré sur la piste poin- 
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3 REVUES POUR LES PASSIONNES 



CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tuitement six numéros hors série (un tous les deux mois). 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, des arti- 
cles ! A la demande de nos lecleurs, nous prenons désormais les abonnements. 
PCompatible MAGAZINE : sortie prévue du numéro 1 mensuel le 13 février 1987. 

Attention, tous nos abonnés reçoivent avant parution des souscriptions sur tes nouveaux livres ! 



CPC AMSTRAD 

Aoonnement essai 
AMSTAR 
PCompatible Magazin 



11 numéros 180 F 

6 numéros 104 F 

3 numéros 55 F 

11 numéros 100 F 

11 numéros 200 F 




NOM 

Acease 
Coce postal . 
Date 



Merci d'écrire en majuscules 
CijO't un chèque libellé à l'ordre 
copie 



s SORACOM. Retournez le(s) bulletin(s) o 
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tée à l'activation de la tête de lec- 
ture et affiche en bas, à droite, les 
trois registres d'états du FDC, (STO, 
ST1, ST2), ainsi que les numéros 
de piste {TRK: en héxa), de secteur 
(SC:), et la taille de celui-ci (SlZ:), en 
multiple de 255. (Utile uniquement 
aux spécialistes). 
•Touche '9': 

SAV : non, cela ne veut pas dire 
Service Après Vente ! SAV : sauve- 
garde d'un secteur, (celui en mé- 
moire) sous forme de fichier binaire. 
Entrer huit caractères maxi; le sec- 
teur est sauvé sous le nom 
'xxxxxxxx.SCT. 

Parmi toutes ces options, seule la 
troisième (MODIF) demande un 
peu de pratique, mais on s'y fait très 
vite. 

Le programme se décompose en 
trois parties. Présentation, mise en 
page et chargement des codes ma- 
chine. Une boucle de commandes 
et les sou s -programmes options et 
enfin le traitement des erreurs dis- 
quette. Cette partie indique dans la 



fenêtre centrale du bas, toutes 
(enfin j'espère !) les causes d'erreur 
en lecture et en écriture. Par exem- 
ple, FORMAT NON STANDARD. 
D'ailleurs, si une telle erreur est 
rencontrée, le programme deman- 
de si le code correct est connu. 
Dans la négative, il est possible d'ef- 
fectuer une recherche des numé- 
ros de secteurs, (limités à 9). Atten- 
tion, pour cette recherche, le nom- 
bre de tentatives de lecture est 
ramené à 1 (normalement 10). Il se 
peut donc que sur de vieilles dis- 
quettes, certains secteurs échap- 
pent au programme. Veillez donc à 
la qualité des disquettes que vous 
protégerez avec ce système. 
La partie langage machine com- 
prend trois routines. En AO00, rou- 
tine de lecture-écriture secteur et 
recherche de piste. En A050, rou- 
tine de détermination du format. En 
A100, dump mémoire du buffer de 
lecture. 

Pour conclure, j'espère que ce 
petit utilitaire vous rendra autant de 
services qu'à moi, comme par exem- 



ple, ressusciter des programmes 
eftacés ou protéger vos disquettes 
des regards indiscrets. 



40 REM 

50 QPEMIT'D'illErlQRY HIHEfl-liCLOSEOUT 

60 PENtl,liPAPERIl,0 

70 MEMORY IZFFF>6G5UB IBÎÛ 

dû PENIl,0iPAP£Rll,l 

90 PISTE=0s SECTEUR=i : PflBE=0a LECTEUR=0 

100 POKE IB4E8,255:PDKE IBE7B.Z55 

110 KEY DEF ll T t,B8»KEÏ 141 ,V+CHR*(13 

):KEY DEF 1G, 0,13, 13, 141 

120 REM 

130 REM - BOUCLE DE COM 

MANDE 

140 REM 

150 IF LECTEURS THEN LECTI="A" ELSE LEC 

T*=T 

140 c«d*=-1234567B90."+CHR*(240J+CHR*(24 



l)+CNRt(242KHRI(243l 

170 ON ERRDR GOTO 1390:QN BREAK BOSUB 13 

70 

m POKE MOlî.OiPDKE &A01A,!,90 

190 L0CATEI2,?,2:FRINr#2,-Piste: "ï:PRINT 

I2.U51N6 'H'ipistBiiPRINTIÏ/ Bwtt'jlP 

RINTI2, USINE -t";«ecteur; iPRINTt2, ■ Page 

s'pagei'Lecti'ilectf; 

200 I$=INKEVI:LOCATE tl ,45, 1 : PRINTI1 , CHR 

*{247);:LDCATEtl T 4S,lîPRlNT*l l * - s : IF If 

»" THEN 6DT0 200 

210 ON INSTfilciat,*!] EOSLS 230,360,410, 

470,840,870,1120,1750,1770,1090,1340,118 

0,1210,1240,1290 



220 Ë 
230 REM - 



) 150 



LIRE SE 

CT 

240 POKE lA023,&B4iPA6E-0;P0KE t-AI 10,190 

iLOCATE l2,23,2!PRINTI2,page 

250 POKE lA023,i87iP0KE tflOl 3, LECTEUR: PO 

KE IA015,PI5TE:CALL IAOOOiIF PEEKIIA04BI 

<>0 TNEN POKE &A023, 184:6070 1410 ELSE P 

OKE IA023,SB4 

240 CALL *A050iE0SUB 1680:IF PEEKIIA04B1 

OU THEN PDKE lA02J,tB4;EOTC 1410 ELSE S 

ECWiecteur-l)+PEEK(lA89Ftlecteur*l40) 

270 IF ID'l THEN ID*OiRETURN 

2S0 IF PEEKUA89FW THEN FORNf IB1 

290 IF PEEK(IAB9F1«*41 THEN FORHI-" STAN 
DARD ' 

300 IF PEEKfiAB9FI=liCl THEN FORH*=" DATA 
ONLÏ ' 

310 CLStîiLOCATE «S ,2,2i PRTNTtS, f orat| i i 
F COPÏ'l THEN COPY=0:RETURN 
320 POKE M013,lecteunPDKE MOIS, piste: 
POKE IA017.SECT 

330 CALL SAOOOiIF PEEKUA04BKJ0 THEN PO 
KE ÏA023,tB4:60T0 1410 
340 IF «ritflag*! THEN Hri tf 1 ag=0: PDKE t 
A023,i84iCl5l4:RETURN 
350 CALL MlOOiRETURN 

340 REH ECRIRE S 

ECT - 

370 CLSHiPRINTMiPRINTM," t ECRIRE * 

confinez (D/NJ'iCHR*(7); 

330 xl=INKEYli!F «»»" THEN 3B0 

390 IF rtO'B" THEN CLSHiRETURN 

400 «ri tf lag=l s POKE IA023,IB5;EOTO 240 

410 REM HCDIF 



420 pag*=!;Ë0SU6 1090 
430 CLSMiLOCATE I4,1,2:PRINTI4,'H0DIFIC 
ATIONS Hode t Deplaceient" 
440 hl=8:vl=2 

450 *l=UPPERf(lNKEYI):LDCATE I3,hl-l,vl! 
PRINTI3,CHRf(243hF0R N TD 2OiNEÏT:L0C 
ATE l3,hl-l,vl!pRINTI3,CHRf(12SI:IF %$=• 
' THEN 450 

140 IF *l=CHRt(210! THEN wl=vl-li IF vl<2 
THEN vl=2:60T0 450 

470 IF «t=CHRt(241l THEN wl=vl+l:IF vl)l 
7 THEN vl=17:S0T0 450 

lp4K/sAN 



480 IF *Ï=CHRJI242] THEN hl-hl-StlF hK6 

THEN hl=B:B0TO 450 
490 IF *t=CHRtl243) THEN hI=hI+3sIF hl>5 
3 THEN hl=53:E0T0 450 
500 IF xl=CHRtfl3) THEN BQSUB 540 
510 IF Kl*T THEN BDSUB 1090 
520 IF *$*•!• THEN CLSHiRETURN 
530 EDTO 450 
540 ' iode écriture — 



550 LOCATE 14, 24, 2:PRINTI1, "Ecriture ■ 

540 h=hl:v=vl 

570 IF page=l THEN bufadr=t9100 ELSE 
bufadr=i9000 

580 LOCATE l3,h,viLINE INPUTt3,inbf 
590 IF lût*" THEN h=h+3:60ÎD 440 
400 IF nbt'VTHEN vl=VP0S(l3hhl"POS(l3 
H: LOCATE H,24,2:PRIMT#4,"DBplaceienf 
iCALL IiAlOOiRETlRN 

410 nblJ"LEFTf(nb$,2)iadr=bufadr+(i(VP0S 
(I3I-21H4IHFII((PDSII31-SI/3)1) 
420 nb=VAL(V+nblf):POKE adr.nb 
430 h=h+3 

440 IF h>54 THEN h=8:v=v+l 
450 IF v>17 THEN v«2 
440 LOCATE l3,h,v:GDTD 570 
470 REH - CDPÏ 

480 CLSi3iCLSI4iCL5i3 

490 PRINTHiPSINTIJ," INSERE! LE DISK SO 

URCE et pressez uns tnuche'iCALL 4BB04 

700 RFLAB*0iCLSi3iPRJNTI3i!NPUT 13, |" PR 

EHIERE PISTEi \CPPiINPUT 13,' DERNIER 

E PISTEl ',CDPUF CDP-CPP)5 THEN 700 

710 INSTRUCTIDN=tB4iHH"9 

720 INPUT 13,' FORMAT DES PISTES Ubt.St 

jnd*rd,D*ti-only,Non standard) i',FPI 

730 IF FPï'T THEN HH*B 

740 IF FPïO'N' THEN CDPY-liPISTE-CPPiED 

SUE 2301 IF PEEKIIA04BIO0 THEN RETURN EL 

SE FGR 1-1 70 MiBU)-(PEEK<IABVFHLECTE 

UR»64))-IHIiNEITi6QTD 760 

730 FOR M TO 9iPRINTI3," Code secteur 

"liliINPUr •3 t B i B 1 BECT*iSfI)-VALCft B +SEC 

TlhNEÏT 

760 POKE IA023, INSTRUCTION: BUFF=t30 

770 FOR CP1STE*CPP TO CDPiPOKE 1A015,CPI 

STE 

7B0 FOR CSECM TD HH:PDKE iA017,S(CSECT 

hPOKE 4A01A.BUFF 

790 CALL IAOOOiIF PEEKUA04BIO0 THEN 14 

10 

BOO BUFF«BUFF*2iNEXT CSECTiNEIT CPISTE 

B10 IF RFLASM THEN POKE fcA023,lB4!PDKE 

lA01A 1 190iCLSI4iCLSI3!CHDf» , RIIHCDFPB , *CH 

Rtl240HCHfiH241)+CHR»(242)+CHRt(243l+'L 

'îHETURN 

820 PfiimîiPRIHTH,' INSEREZ LE DISK DE 

STINATION et pressez une toucheVCALL iB 

B06 

830 INSTRUCÎI0N=l85iRFLA6=l!BDTO 740 

840 REH - CATAL06 



850 CLS !3iMIND0N SNAP 3,0 

NAP 3,0iRETURN 

860 REH - 



- FORMA 



B70 CLS 13: HINDOU SNAP 3,0iNH*9 

BBO LOCATE 2,2i INPUTj'Preiiere Piste t", 

fppiINPUTi" Dernière Piste r'.fdp 

890 IF fpp<0 OR fdp>39 THEN 8B0 

900 adr=lA027iP0KE tA019,l27iPCKE IA01A, 

IAOi'FTAB ds HL 

910 LOCATE 2,4!lNPUT| , Type De For Ml (Ve 

ndor,Dita on]y,Ibi,Non standard) :',t(ti 

■■«?iIF INSTRCYDINVFOO THEN 910 

920 IF tfl«T THEN ni-HO 

930 IF tf**"D" THEN ns=lCO 

940 IF H*-"!' THEN ns=tOiii=B 

950 IF tft='N" THEN BOTO 1030 

960 FOR i«l TD ■•ini<i)*ns+iiNEIT 

970 POKE ftA023,tBfrtCLSst=0t 'No tête 

980 FOR i=l TO H 

990 POKE ai)r+],t;POKE *»+?,]« 11 îlPKE a 

drtJ.îïIF i"! THEN POKE lA017,ns(l) 

1000 idr-HTrHiNEIT i 

1010 FOR p-fpp TO fdpiPDKE *A013,pradr=l 

A027:F0R i*l TO n:POKE adr,piadr=adr+4i 

NEIT i 

1020 LOCATE lO.lOiPRINT'FDRHATAeE EN CDU 

RS PISTE i 'jP 

1030 CALL IAOOOiIF PEEK(IA04BK)Q THEN N 

1NDDN SNAP 3,0tP0KE ;A023,s84:PQKE ÏA019 

,0:POKE lA01A,*9O;B0T0 1410 ELSE NEIT p 

1040 HINDOU SNAP 3,0:P0KE tA019,ÛiP0KE l 
A01A,l90tP0KE tA023,tS4iCLSt3iRETURN 
1030 ' 

1040 FOR 1-1 TO m 

1070 PRINTiPRINT'CODE SECTEUR - ! I ; - "("N 
l'uLINE I NPUT) NS* i MS ( I) = VflL ( " fc "+NS* ) 
NEIT liGOTO 970 



] RE1 - 



- PAS 



1100 !F page-0 THEN paqe=l:POKE kA110,&9 

1 ELSE page=0:PDKE IA1I0,490 

1110 LOCATE t2 1 23,2iPRINTt2,pagt|iCALL t 

AlOOiRETURN 

1120 REH CALCUL 

BLOCS 

1130 CLSMiLOCATE l4,2,2iPP,rNTiVNo Bis 
Ci'iiLINE INPUT H,|BtiB-VM.[>l a tll)ifl>? 
1140 IF PEEK(lA89F)=iCl THEN SECTCNT-iB* 
2) ELSE SECTCNMB12+1B) 
1150 IF PEEKI1A89F)=1 THEN SECTCNMB*2+ 
16) IH=B 

1160 TR=FI X (SECTCNT/flI s SEC-SECTCNT HOD N 
+1 

1I70PRINTI4," PIBTEi'iTHi' "('SECTEUR 
s'iSECiiRETURN 
1100 REH - - piste+i -- 



1190 piste-(piste<39)+piste+(lpiste-39) 
f39>i!F pistedO THEN loh>B ELSE loh=7 
1200 L0CATEI2,loh,2:PRINTI2,plsteiF0R t> 



rO lOOiNEITilF INKEYIOI=0 THEN 1190 EL 

SE RETURN 

1210 REN pi*te-l -- 

1220 piBte=(piste>0)+piste+(-lpiste=0H3 
9) ! IF pisteUO THEN loh=B ELSE lufi=7 
1230 L0CATEt2 l lDh l 2:PRINTI2,pi5teiFDf! t« 
ÎÛ lOOiNEITilF INW(2)=0 THEN 1220 EL 
SE RETURN 
1240 REN sect-l - 



1250 sect sur = (secteur >l)+secteurM- (sec t 

Bur=tlHPEEK(lSBft0tllecteurt64)l-ll) 

1260 LOCATE 12,15, 2:PRINTI2, secteur 

1270 IF secteur=9 THEN SOTQ 1210 

1Î80 FOR t"0 TO 100:NEÎT:!F INKEY(G)=0 T 

HEN 1250 ELSE RETURN 

1290 REN sect+1 - 



1300 secteur=-l5ecteur<9)+secteLir- t ((sect 

eur=9IHPEEK(I.ABA0+llecteurt64l)-l)) 

1310 LOCATE 12, 15, 2:PR1NT(2, secteur 

1320 IF secteur=l THEN SOTQ 1130 

1330 FDR t=0 TC IÛÛjNEXT: IF INKEYI1)=0 T 

HEN 1300 ELSE RETURN 

1340 REH LECT — 

1350 IF LECTEURS THEN LECTEURS ELSE LE 

CTEJR=0 

1360 RETURN 

1370 REN BREAK 

13B0 POKE t.BE7B,0:riODE 2:EN0 

1390 REN ERRDR 

1400 PRlNTt4:PRINTt4,' ERREUR: '[ERRlCHR 
f(7liFDR T=0 TO 2000:NE(T:CL5M:RE5UHE 1 



1410 REN - 
I5K 



• ERREUR 1 



1420 SOUND 1,50, 7,5, 0.OsSQUND 1,40,7,5,0 

,OiSOUND 1,30,7,5,0,0:SCUND 1,20,7,5,0,0 

1430 B0SU9 14B0 

1440 CLSM!ERFLAS=PEEK(IAÛ4B) AND ITFiLO 

CATE M, 2,2 

1450 IF tERFLAB AND »9)-t4B THEN PRINTI 

4, "PAS DE DISK DANS LE LECTEUR '.'.•;•• 

6DT0 1670 
1460 IF (ERFLAE AND 1421=142 THEN PRINTt 
4, 'DISK PRQ1E6E EN ECRITURE M*;GOTG 167 


1470 IF (ERFLAG AND t41)-l4l THEN PRINTI 
4,'DISKNONFORKATE'ieGTD 1670 
14B0 IF (ERFLA8 AND L60)-i60 THEN PRINTI 
4, 'SECTEUR ILLISIBLE ! ! ! * ; : GOTO 1670 
1490 IF (ERFLAS AND (.441=144 THEN PRINTI 
4,'FORHAT NON STANDARD ! !'iFGRH$='Non St 
indard'iLGCATE l5,2,2:PRINTI3,*oriïii60T 
G 1510 

1500 PRINTI4, 'ERREUR NON REPERTORIEE M! 
!'!6GTD 1670 

1510 CLSIJiLOCATE t3,2,2iPRlNTIi,'C0NNflI 
SSEZ VOUS LE CODE SECTEUR CGRRECT (0/N) 1 



1520 It=INKEYf:IF Z$=" THEN 1520 

1530 IF 2I=T THEN LOCATE 13,2,4: 1NPUT 

#3, ; "CODE EN HEXA: , ,SECTt:SECT=VAL('l'+S 

ECTli!CLSI3:CALL iA050:EOSUB 16G0:G0T0 3 

10 

1540 LDCATE I3,2,4:PRINTI3,'VCULEZ UNE R 

ECHERCHE DES CODES DE CETTE PISTE (0/N) ■ 

1550 IMINKEYIiIF lt-" THEN 1550 
1560 IF Zt=*N* THEN CLSI4iCLSI3iRETURN 
1570 CLSI3:CLSM;L0CATEI4,2,2iPR!NTI4,*R 
ECHERCHE EN CDURS essai code: " 
15B0 POKE tAû23,lB4iP0K£ IA013,DRIVEiP0K 
E IA015, PISTE 

1590 POKE lrBE66,liPRINT #3rTR0UVE=0 
1600 FOR S=0 TO 255 

161 û LOCATE l4,33,2iPRINTI4,HE»ISI]POKE 
IA017,S 

1620 CALL lAOOOsIF IPEEKIIA04B) AND 144) 
=144 THEN GOTO 1650 

1630 SOUND 1,30, 3,15, 0,0:PRINT 13,* Cod> 
: ';HEIf(S) 

1640 TROUVE=TRDUVE-tliIF TROUVEE THEN 16 
60 

1650 NEÏT S 

1660 PDKE IBE66,10iCLS MîRETURN 
1670 LOCATE #4,2,Ï;PRINT#* ! "PRESSE2 UNE 
TOUCHE'iCALL tBBÛi: CLSI4 : CLS#Î: RETURN 
16S0 REH ID SECT - 

1690 CLSIÉiRESTORE I740;I1-=&BE4C 

1700 FOR 1=2 TO 7:READ HlPRMTH," "|W 

iHEKtiPEEKIUUi 

1710 ïl=Il*llIF Ï.1-IBE50 THEN 1710 

1720 IF 1=4 THEN PRINTI6 

1730 NEÏTiRESTOREiRETURN 

1740 DATA ■ST0: , , , ST1: , , , ST2! , ,'TRK! , , , S 

CiYSIZi" 

1750 REN 

1760 ID=l:SOTO 250 

1770 REH SAUVEGARDE SE 

CTEUR - 

1780 CLSI4:PRINTI4,' SAUVEGARDE SECTEU 

R 1 

1790 INPUTI4," N0Ni",FILEI 

1B00 IF F1LEI=" THEN CLSHiRETURN 

1B10 IF LEN(FILEtl>8 THEN PRINTI4,CHRt(7 

);iG0T0 17G0 

1820 FILEWILEf+'.SCriSAVE FILEI,B,i90 

00, I200i CLSI4: RETURN 

1B30 REN HISE EN P 

AGE 

1G40 MODE h m. 1,0:INK O,22iB0RDER 22 
1B30 SÏHBCL 255,127,63,31,15,0,0,0,0 
1B60 LOCATE 30,12iPRINT*SECT0RY+ DLN 19B 
6M0CATE 35, 14:PRINT* INITIALISATION 1 
1B70 S05UB 205O:FOR T=0 TO 2000iNEXTi IHK 
1,22 

1BB0 FOR 1=1 TO 25:PRINT STR1N6KB0,207) 
liNEIT 

1B90 KIND0KI1, 1,45, l,2iKMDKI2, 48, 79,1 
2i*!ND0HI3 ! J,74,4,21 
1900 NINDOHI4,16,56,23,24iHIND0NI3 l l,14 



23,24:KIND0NI6,5B,79,23,24 
1910 FOR N=l TO 6:CL5IN:NEITiNINDDNI3 1 4, 
74,4,21 

1920 PRINT CHRt(î3)CHRÏ(l>|iL0CATE 2,3:P 
RINT STRING$(45,131iiL0CATE 46,2 
1930 PRINT CHRKI43)iL0CATE 46,1:PR1NT C 
HRII215) 

1940 LOCATE 49,3!PRINT 5TR [NGf (32 , 131 1 ; ) 
LOCATE B0,2:PRINT CHRK143) 
1750 LOCATE BO,liPRINT CHRt(21SI 
1960 LOCATE 4,22:PRINT STRINGt(74,131!|! 
FOR 1=5 TO 21:LDCATE 77,1:PRINT CHRÏU43 
l:N£ÏT:LOCATE 77,4iPRINT CHRK215) 
1970 LOCATE 2,25:PRIN! STRING* (79,131);: 
LOCATE B0,24:PRINT CHRt ( 143) ; îLOCATE 60, 
23:PRINT CHR*(2l5>i 

1980 LOCATE 1,3:PR!NT CHRK255);LDCATE 4 
8,3:PRINT CHRK2551 iLOCATE 3,22iPRINT CH 
Rt(255liLGCATE 1,25:PRINT CHRII255I 
1990 PRINT CHR$(22)CHRtl0)|!L0CATE 15,23 
iPRINT CHR*(148):LDCATE 57,23:PRINT CHRI 
(14B1:L0CATE 15,24îPRINT CHRI(149)iL0CAT 
E 57,24iPRINT CHRH149I 
2000 PRINTIliPRINTIl, 1 Lire Ecrire Hodif 
Ccpy Dir Fan Bloc Id Sav" 
2010 LOCflTEil, 1, liPENtl ,0;PAPERil , ItPRIN 



III. 



2 



4 



7 



B 9 ■|:PENI1,1:PAPERI1,0 
2020 PRINTI2:PRINTI2," Pistel Sect! 
Pagei Lecti" 

2030 LOCATEI2,l,l:PENI2,0:PAPERI2,ltPRIN 
TI2," ■CHRÏI2401' ''CHRf 1241) " "CHRI 
(2421* ■CHR$(243P *CHR$(144I 

'i:PENI2,liPAPERI2,0 
2040 BORDER IllINK ],0:RETURN 
2050 REN - - L H -■ 



2060 RESTORE 2120 

2070 FGR A'iAOOO TO &A023iREAD DtiPOKE A 

^AU'Ii'tDiliNElT 

20SO FOR A=bAOSO TO 1A05?:REAÛ DïiPOKE A 

,VAL ( ■4*+D*):NElT 

2090 FDR A4A100 TO MIBOiREAD DtiPDKE A 

,VALl'fc'+BMtffiIT 

2100 RETURN 

2110 REN DATA LH - 

2120 DATA AF t 3Z,4B,A0,21,23,A0,C0,D4,BC 1 
00,22,24^0,79,32,26^0, 1E, 00, 16, 00,OE 
2130 DATA 00 1 21,O0,90,DF 1 24,A0,DG,32,4B h 
AO,C9,84,DF ) 56,A0,DB,lB,C9 l 6C,C5,07 ( 67 
2140 DATA 3E , 03 , CD , Et4 , BB , CD , &C , ËB , 2 1 , 02 , 
01, CD, 75, BB, 21, 00, 90, E5, 06, 10, 3E, 20, CD 
2150 DATA 5fl,BB T 7C,CD,t4,AI,7D,CD,64,Al, 
3E,20,CD I 5A,BB,3E,20,CD,5A,BB,7E,CD,64 
2160 DATA A],23,10,F4,E1 I IE,20,CD,5A,BB, 
3E,2O,CD,5A,BB,06,lO,7E l CB,BF,FE,20,30 
2170 DATA 02,3E,2E,CD,5A,BB,23,10,F1,E5, 
C0 I 7B < BB I 7D,FE > 11 I E1,C8,E5,3E,0D,CD,5A 
21B0 DATA BB , 3E , OA , CD ,5A , BB 1 18 , AE , 5F , &F , 
0F,0T,0F,E6 1 OF,CD,75,Al ( 7B,E6,0F,CD,75 
2190 DATA Al,C9,FE ( 0A,38,02 < C6,O7,C6,3O, 
CD,5A ) BB,C9,44,4C,4D« 



(Jeux, 



FER FORGE 




Fer forgé est un programme 
original de mémoire visuelle 
et d'attention. Il vous permet- 
tra de vous familiariser avec 
l'art de la ferronnerie. 



imiiifMtifitmtiiifmmii 
FERFQR6E 

JEU DU FERRONNIER 

J.Reingot 

No«ibre 1*84 

Version 444-444-6123 



INITIALISATIONS 



100 ' 

no as 

120 BORDER 13: JNK 0,13: PAPER OiINK !,0il 

W. 2,26ilNK 3,0,24 

130 PEN 1 

140 f[=0 

150 01N 11(24,41,1(41, p(24),«l24l,y(24l , 

nttîi 

140 DIN it(321, (((321 

170 RES10RE 4470 

100 FOR i=l TU 32:READ niil,d(i):NEHT 

190 EHV 1,1,15,5,5,-1,10,10,-1,5 

200 ' 

210 ' 

220 ■ 

230 SÏHBOL AFTER W 

240 SYHflOL 200,0 

250 SVPTB0L 201,1,2,4,6,14,32,64,12» 

240 3VNB0L 202,128,44,32,16,8,4,2,1 

270 SÏMB0L 203,7,24,32,44,64,128,128,120 

2B0 SÏHBDL 204,224,24,4,2,2,1,1,1 

210 STHB0L 205,128,128,126,64,44,32,24,7 

300 SYflBDL 206,1,1,1,2,2,4,24,224 

310 5ÏHB0L 207,192,32,32,14,14,32,32,172 

320 SÏHBDL 208,3,4,4,8,6,4,4,3 

330 SïHBDL 209,129,129,102,24 



REDEFINITIONS SYMBOLES 



Vous constaterez très vite que si 
les motifs de base sont simples, 
leur combinaison peut devenir très 
complexe. Il est préférable, au dé- 
part, de choisir les options "G" (voir 
des grilles) ou "C (composer des 
grilles) avant de s'attaquer au jeu 
proprement dit (option "J"). 



340 5ÏHBDL 210, 0,0, 0,0, 24, 102, 129, 129 

350 SÏHBOL 211,1,1,1,1,1,1,1,1 

360 SÏNBOL 212,126,125,128,128,128,128,1 



390 SÏHBDL 215,255,126, 128,128,128, 128,1 

28,128 

400 SÏHBOL 216,255,1,1,1,1,1,1,1 

410 SïNBOL 217,128,128, 126, 128,126,128,1 

28,255 

420 SïHBDL 216,1,1,1,1,1,1,1,255 

410 SÏHBOL 219,1,1,1,1,15,8,6,246 

440 SÏHBOL 220,128,128,126,126,240,14,14 

,31 

450 SÏHBOL 221,248,B,B,15,1,1,1,1 

440 SÏHBDL 222,31,14,16,240,128,128,128, 

128 

470 SïNBOL 223,0,0,0,3,12,6,16,14 

480 SÏNBOL 224,0,0,0,192,46,16,6,9 

490 SÏHBDL 225,14,14,8,12,3 

500 SÏHBOL 226,8,8,14,48,192 

510 SÏNBOL 255,0,8,4,126,124,4,8 

520 BATA 0,1,2,0,1,0,0,2,2,0,0,1,0,2,1,0 



610 DATf 
620 DAT! 
430 BATI 



DATA LIGNES 

ATA 2,0,0,1,0,2,1,0,0,1,2,0,1,0,0,2 

A 1,2,1,2,2,0,0,1,1,0,0,2,2,1,2,1 

B 3,4,3,4,5,0,0,4,3,0,0,4,5,4,5,6 

ATA 4,5,4,5,4,0,0,3,6,0,0,5,4,3,4,3 

ATA 0,4,3,0,5,13,13,6,3,14,14,4,0,4 

0,3,4,0,3,0,0,4,5,0,0,6,0,5,6,0 
8,0,0,7,0,4,3,0,0,6,5,0,6,0,0,7 
10,0,0,10,0,5,6,0,0,3,4,0,9,0,0 



640 DATA 0,11, 12, 0,13, 1,2, 13, 14, 2, 1,14,0 
,11,13,0 

450 DATA 0,11,12,0,13,15,14,13,14,17,18, 

14,0,11,12,0 

440 DATA 0,11,12,0,13,3,4,13,14,5,4,14,0 

|U,tï,0 

670 DATA 11,0,0, 12, 1B, 0,0, 17, 14, 0,0, 15,1 

1,0,0,12 

480 DATA 13,18,17,13,0,0,0,0,0,0,0,0,14, 

14,15,14 

690 DATA 19,0,0,20,0,0,0,0,0,0,0,0,21,0, 

0,22 

700 DATA 0,11,12,0,13,19,20,13,14,21,22, 

14,0,11,12,0 

710 DATA 0,0,0,0,0,22,21,0,0,20,19,0,0,0 

AD 

720 DATA 0,0,0,0,0,10,10,0,0,9,9,0,0,0,0 

,0 

730 DAIA 0,0,0,0,0,6,7,0,0,8,7,0,0,0,0,0 

740 DATA 23,24,23,24,25,24,25,24,23,24,2 

3,24,25,24,25,26 

750 DATA 0,23, 24, 0,23, 24, 25, 24, 25, 24',23, 

26,0,25,24,0 

760 DATA 24,0,0,25,0,0,0,0,0,0,0,0,24,0, 

0,23 

770 DATA 16,0,0,17,0,0,0,0,0,0,0,0,14,0, 

0,15 

760 DATA 0,0,0,0,0,23,24,0,0,25,26,0,0,0 



810 ' FORMATION DES ELEMENTS 

820 ' 

630 RESTORE 520 

840 FOR j=l T0 24 

850 FOR M TD 4 

640 READ d,cî,c3,6l 

B70 ltfj,i]=CHRtl200*cm[HRï(200*c2HCH 

RKÎOO+cïl+CMWIÎOOM) 

BBO NEÏT :NEIT 

890 IF (1=1 THEN 1140 

900 RANDOHIZÊ TIHE:G0SOB 3030i 'PRESENTAT 

ION 

910 ' 

920 ' HENU PRINCIPAL 

930 ■ 

940 LDCATE B,10:PR1NT 'Voir des grilles. 

(8) 

950 LOCATE B,12iPRlNT "Coipaser des gril 

les (C) 

940 LOCATE B,14:PRINT "Jeu du Ferronnier 



..«> 



970 rept=INKEY4:IF rept=" THEN 970 
980 IF rept='g" OR repl="B" BOTO 3730 
990 IF repf=V OR rep$="C" SOTO 3690 
1000 IF r«p**"j" DR rept=T THEN CLS:60 
T0 1050 
1010 BDT0 970 
1020 ' 

1030 ■ JEU 

1040 ' 

1050 LDCATE 3,3:PRInT ■ Vous devez d'ado 
rd sélectionner* 

1060 LOCATE 3,5:PR1NT '12 eleients pirii 
les 24 qui vous' 
1070 LDCATE 3,7iPRlNT " sont pr 



1090 LOCATE 2,13:PR1NT * les lettres de 
s eleients choisi s" _ 



CHOU DE5 ELEMENTS 



1120 ' 

1130 ' 

I1M PEN IïFOR i=30 Tu 512 STEP 94 

1150 FOR j=3B5 TO 145 STEP -00 

1140 0RI6IN i,j 

1170 PLOT 0,0,2: DRAW 66.0: DRA* 44,-44iDR 

AH O,-44:0RAII 0,0 

1160 «EUT j,i 

1190 FOR i=l TO 2*:p(il=0:NEJT 

1200 i^O 



1230 i=t*l 

1240 FOR «=1 TO 4 

1250 LOCATE 3+1*4, Uj^mPRINT Ufi.Jf) 

1240 LOCATE î+iH.Î+jtSrPfilHT CHRÏ(44tt) 

1270 LOCATE 2+i *6,<+j*5:PRIHT CHRJ12551 

1280 fli)*3ti#Su(i)*ï*i« 

1290 NEITiNEITiNEIT 

1300 FDR i=l TO 12 

1310 cht=INKEtt:lF chl=*- THEK 1310 

1320 chf-UPPERf (ch$l 

1330 r=AGCIchll-44 

1340 IF r>24 OR r(l THH SOUND 1,430,20, 

15,,,20:E0TD 1310 

1350 IF pifhl 1HEN GDÙND 1,430, 20, 15,,, 

20JG0T0 1310 



1340 p 



"I 



1370 PEN IlLDMïE 2ti,24:PRINT cM 

1380 FOR *"1 TD 4 

1310 LOCATE x(r),y(rJ-H-w:PEN 3:P«INT It 

1400 NEIT 

1410 PRINT CHRt(22HCHRflO)iPEN liLOCATE 
25,24iPRINT 'encDre: 'sPEK JilBMTE 34,2 
4:PFiINT 12-iî: MUNI! 1,40,20,15,1 
1420 PRINT CHRi(22)+CHR(lll 
1430 ra(il=r 



MENU DU JEU (Il 



1500 CLSiPEH 1 

1510 LOCATE 7,2:PR1NT 'Pour fabriquer se 

s grilles" 

1520 LOCATE 6,3:PRINT 'le ferronnier di 

sf os? coi:' 

1530 LOCATE 5,4;PR1NT 'des 12 elewntî d 

ifferents nue" 

1340 LOCATE 3,5iPRINT "voici i ' 

1550 PRINT CHR»12Z1+CHRM0J 

1540 DRISIN 270,305:DRAU 44,Q,2iDRAtl 44, 

-44;DRAN 0,-44:DRAN 0,0 

1570 FOR i=l TO 12 

1580 FDR tel TO 4 

1590 LOCATE 18, à*-: PAINT Itli,*) 

1400 NEIT h 

1410 PRINT CHRII7); 

1420 LOCATE 14,B:PRINT CHRM44+U 

1430 LOCATE 16,9iPRINT CHRM255) 

1440 FOR W TO 8OQ1NEIT t 

1450 NEIT i 

1440 LOCATE 7,12:PRINT •> l'iiaqe les el 



1470 LOCATE 7,13:PR1NT "superposent: 1 

1480 PRINT CHRH22HCHRII1I 

1490 OR I GIN 270,177iORAN 44,0:DRAN 44,-4 

4:DRAH 0,-44:DHAN 0,0 

1700 FOR 1*1 TO 8 

1710 d=INT(RND»12l+l 

1720 FOR T=0 TO 200:NEIT 

1730 FOR IFi TO 4 

1740 LOCATE LB, 14+h: PRINT lild,*! 

1750 NE1T:NE<T 

1740 LOCATE 7,20:PR1NT 'Vous itm truuv 

er de quels' 

1770 LOCATE 7,21:PRINT "eleient5 il 5'es 

t servi." 

1780 LOCATE 19,25:PRINT "Appuyer sur 11 

barre" 

1790 CALL iBBIBiCLS 

1800 ' 

1910 ' MENU DU JEU 12) 



IB30 PEN liLOCATE 3,4;PRINT -Entrai 



1840 LOCATE 3,8:PR1NT "Très facile. ...3 



■.!)■ 



1850 LOCATE 3,I0:PRINT "Facile 4 

1640 LOCATE 3,12:PRINT 'Moyen 5 

eleients (5)" 
1G70 LOCATE 3,14:PRINT "Difficile 4 

eleients <6)' 

1BB0 LOCATE 4,17:PRINT 'Tape: le notbre 
choisi' 

1B90 rt=INKEÏ(!lF rl=" THEN 1S90 
1900 l=WLIrJliIF Kl DR 1)6 THEN SOUND 
1,430,20,15, ,,20:BDT0 IB90 
1910 CLS 



AFFICHAGE FIXE 



1950 mm ll,2,34,15,23!FAPER tl,0:CL5 
11 

1940 HINDOU 12,2,25,24,25 
1970 KINDON 13,37,39,15,23 
1990 CL5 (3iPEN 13,3 
1990 HINDOU t4,24,39,24,25:CLS *4 
2000 FOR i=30 TO 512 5TEP 94 
2010 FOR j=3B5 TO 305 STEP -90 
2020 DRISIN l,J 

2030 PLOT 0,O,2rORAK 44,0:DRAN 66,-46iDR 
AN 0,-44:DRAN 0,0 
2040 NEIT j,i 
2050 PEN UFOR 1*0 TO 5 
2040 FOR «=l TD 4 

2070 LOCATE 3*1*4, l+M PRINT 1HHI,«1 
2080 NEIT ■ 

2090 LOCATE 2tH4,3;PRINT CHRf(65*i) 
2100 LOCATE 2*ji4,4:PRlNT CHRt(255l 
2110 NEIT i 
2120 FDR i=0 TO 5 
2130 FOR n=l TO 4 

2140 LOCATE 3*it4,4n:PRINT 1ÏIIW,») 
2150 NEIT . 

2140 LOCATE 2*U6,B:PRINT CHRtl7l'il 
2170 LOCATE 2*it4,9:PRINT CHR1I255I 
2180 NEIT 1 

2190 LOCATE 7,U: PRINT'HODELE ï 

DTRE BRILLE' 

2200 PEN (4,2iL0CATE M,l,liPRINT14,"Pt5 
: Sur: 1 



2210 et= - ELEP1ENTS" 

2220 FDR 1=1 TO 9 

2230 LOCATE 3B,4+IiPRINT HiDHE!,I,ll 

2240 NEIT 

2250 PEN 2:LDCATE 37,3:PRINT K 

2240 0RIG1N O.OiPLOT I4,46:DRAN 272,44iD 

RAU 272,174:0RAV 14,174:DRAN 14,44 

2270 PLDT 31G,44:DRA» 574,44:0flAN 574,17 

6;DRAN 31B,174:0RAN 316,44 

22B0 ' 



TIRAGE AU SORT 



AFFICHA6E MODELE 



2290 : 
2300 ' 

2310 J(1] = ]NT(RND<!2HI 
2320 J(21 = INT(RNDH2!'l 
2330 IF JI2)=](11 THEN 2320 
2340 J(31=INT(RNDH2H1 
2350 IF JI3)=JI2> OR JI3NI1I THEN 2340 
2340 J(4I = 1NT(RNDM2H1 
2370 IF II4MIS) OR J(4I=JI2I DR J(4)=J 
III THEN 2340 
2360 JI5I=1NTIRND<12)+1 
2390 IF JI5WI4) OR J (5> =J (3ï DR JI5I=J 
(21 OR JI5I=J(II THEN 2380 
2400 J(4I=INTIRNDt|2l+l 
2410 IF JI4)=II5) OR JI4)=JI41 OR JI4I=J 
131 OR JI4)=J(2) DR J(4]=Jfll THEN 2400 
2420 ' 
Ï4M ' 
2440 ' 

2450 HINDOU 11,2,37,15,23 
2440 PEN 11,1 

2470 PRINTtl,CHRH22)+CHRJI1l 
2480 FOR 1=1 TO k 
2490 FDR H=0 TO 3 
2500 FOR V=0 TD 1 
2510 FOR «=1 TD 4 
2520 LOCATE H,WfH,.44*V+* 
2530 PRINT)l,ltlJ(II,Nl 
2540 NEIT! NEIT: NEIT: NEIT 
2550 ' 

2540 ' REPONSE ET AFFICHA6E 
2570 ' 

25BO FOR i=l TO k 
2590 aJ=INKEYt:]F a*-" THEN 2590 
2400 al=UPPERflal);zli)=A5Clatl-44 
2410 IF z(i)>l2 OR iliKl THEN GOUND 1,4 
30,20, 15, ,,20r60TO 2590 
2420 PEN II, hLOCATF 11, 18, M 
2630 PRINTII,al:SDUND 1,40,20,15,1 
2440 NEIT i 

2450 PEN l2,l:PRINTI2, , a refaire o/n" 
2440 rt=INKEVt:IF ri=" THEN 2440 
2470 IF rl=V OR rl="0" THEN CLS t2:PEN 
l!,0:FOR i=l TO kiLOCATE H,!B,iMiPRIN 
Ttl,CHR(ll43l!NEIT iiBOTO 2580 
24B0 IF rMV OR rl-'N" THEN CLS I2:60T 
2700 

2490 60TD 2440 
2700 FDR j=l TO l 
2710 FOR h=0 TD 3 
2720 FOR ï=0 TD 1 
2730 FOR H TD 4 

2740 PEN ll,l!LOCATE II t 20+4th,4*v + " 
2750 PRINTIl,U(zlJl,n) 
2740 NEIT!NEIT;NEIT:NEIT 
2770 DRIGIN 14,48 
2790 ! 

2790 ' VERIFICATION ET GCDRÉ 
2800 ' 
2810 tt=tt*l:PEN 14, liLOCATE I4,I1,1:PRI 



mtt,tt 

2820 j*=-JUSTE*:fi*='FAUJC 

2830 FOB i=0 TD 12 
28(0 FOR y=0 TD 32 

2850 IF TESnK,YK>TESnn+304,y) THEN 2G 
90 

2840 NEITiNEïT 

2870 FOR i=l 10 5:LDCATE tî , Z, i+Z: PRINTt 
3,NI0t(jl,i,l]:FOR t=0 TD 100: NEIT: SOUND 
1,43,10,15, liNEIT i 

2GB0 ic-it+IiKN (4,1:LDCATE (4,4,1;PRIN 
TI4,5c:Ê0T0 2900 

2890 PEH 13,3:F0R i'I TO 4;L0CATE *3,2,i 
♦ l:PRINTI3,niDJlfaI,i,I)ifDFl t=Q TO 100: 
NEUiSOUNI i,4OÛ t 10 1 15, 11 20:NEXT:GOTD 29 
00 

2900 IF tt=10 THEN 2920 
2910 PEN 12, IrPRINTI2, 'Appuyez sur une t 
oucbe'sCALL (.SBlBiCLS tl:CLS HiCLS 13:6 
010 2240 

2920 PRiNT(2,'UriB autre série o/n" 
2930 r*=INKE¥t: IF r*: 11 THEN 2930 
2940 IF r**V 0(1 rJ="H" THEN CflLL 
2950 IF r*=V OR rt-'D" THEN sc=0:tt=0: 
CLS I2:PRINT «/D'autres eleients? o/n" 
2940 rrt=INKEY$:IF rrl=" THEN 2940 
2970 IF rr»="n p DR rrl='0" THEN NINDDN I 
,40,l,25:CL5!ERA5E 1 *,« , y,p ,r*,z ,n,d: f 1 = 
liRESTDREiGOTD 150 

2980 IF rrMV DR rr***r THEN HINDOH 1 
,40,1,25:CL5:GDT0 1830 
2990 EDTO 2950 



PRESENTATION 



3030 PRINT CHRtlIïl+CHRtll) 

3040 DRI6IN 14,385: DRAM 130,0,2iDRAH 130 

,-130iDRAI 0.-130: DFflw 0,0 

3050 ORISIH I74,369:DRAtl 130,0:DRAH 130 

-66:DRAN 0,-66:DRAH 0,0 

3060 ORIBIN 366,385:DRAH 258,0:DRAN 25e 

-ÉtiDRCK Q,-66:DRAN 0,0 

3070 DR16IN 30,241:DRAtl 66,0:DRAH 44,-1 

OiDRAN 0,-I30:DRAN 0,0 

3080 0RIG1N 542,2G9iDRAN 46,0:DRAN 66,- 

30:DRAH 0,-130iDRAH 0,0 

3090 0RI61N H,80:DRAU 258,O:0KM 258,- 

& : DRAW 0,-66:DRA* 0,0 

3100 DRI6IN 334,96:DRAK 130,0:DRAH 130, 

66:0RAH 0,-64:DRAH 0,0 

3110 0RI8IN 494,144:DRA« 130,0!DRflï 130, 

-130iDRAN 0,-130:ORflN 0,0 

3120 FOR i'I TO 6 

3130 g=INTIRND»24)*l 

3140 FOR h=0 TO 1 

3150 FOR y=0 TD 1 

3160 60SUB 4400 

3170 FOR )«I TD 4 

3180 LOCATE 2+hH, i+v*4+iiPfiIHT lllg,]) 

3190 «EïTiMEITiMEIT 

3200 g = INT(RNDi24)H 

3210 FOR h=0 TO 1 



!î 



ï *4!.:C- 



3230 FOR ]*1 TO 4 

3240 LOCATE 12+M4,2+ji PRINT I 

3250 NEITiNEïT 

3240 g=lNHRND»24!+l 

3270 FOR (i=0 TO 3 

32BQ 60SUB 4400 

3290 FOR H TD 4 



3300 LOCflTE 24+h*4, 1+ j : PflJNT lf(g,jl 

3310 NEITtNEÏT 

3320 g=INT(RND'24)*l 

3330 FDR v=0 TO l 

3340 60EUB 4400 

3350 FOR j=l TO 4 

3360 LOCflTE 3 , I0+v*4* j : PBIMT lt(g,jl 

3370 NEITiNEïT 

33B0 g=INT{RND*24l*l 



il% f 



B m;; 



3400 FDR ï=0 TO 1 

3410 GOGUB 4400 

3420 FDR j-I TO 4 

3430 LOCATE 35,7+yi4+j:PRINT It(g,JI 

3440 NEITiNEïT 

3450 9=1NT(RND«24)H 

3440 FDR h=0 TD 3 

3470 GOSUB 4400 

3480 FOR j=l TO 1 

3490 LDCATE 2*(iM,20+jiPR]NÎ IHg.j) 

3500 NE<T:NE«T 

3510 g=INT(RND*24)*l 

3520 FDR h=0 TO 1 

3530 6DGUB 4400 

3540 fOR j=l TO 4 

3550 LOCATE 22*dt4,l9+j:PRINT 111g, j] 

3540 NEITiNEïT 

3570 g=]NTIRKD+24>+L 

3580 FOR h=0 TO I 

3590 FOR ï=0 TO 1 

3600 GOSUB 4400 

3410 FDR j=l TO 4 

3420 LOCATE 32+hM,16*Y»4*j:PRINT ll(g,j 

3630 NEKTiNEITiNEÏT 

3640 NEIT i 

3450 LOCflTE 1B,I0:PRINT "J E If' 

3660 LOCflTE 19,12:PRINT '0 U 1 

3670 LOCflTE 11,14:PR[NT 'F E R R D N N I 



VOIR DES GRILLES 



EOSUB 4130 

GOSUB 4290 

FOR i=0 TD [NTIRNDt5)+5 

g=INT(RNDi24l+l 

60SUB 4190 

NEKT 

GOSUB 4340 

LOCflTE 1,25:PR1NT 'Une au 



0. IF r)=V OR rt='D" THEN CLS: 

BDTO 3B20 

' 

' COMPOSER DES BRILLES 



3 GOSUB 4130 
H GOSUB 4290 
0R1EIN 30,14:DR 
0,66:DRAM 0,0 
FOR i=l TO 24 



SCIi! ? 
SD1D 3 



Û/H' 



3940 PRINT CHRJ(22)*CHRH0; 

3950 FOR j=l TD 4 

3960 LOCATE 3,20*j:PRlNT llli.jl 

3970 NEIT 

3980 LDCATE 10,22:PRINT "A utillîf 

3990 r$=INKEÏJ:IF rJ=" THEN 3990 

4000 IF rf=V OR r*='0' THEN g=iiBDSUB 

4190:GDT0 4030 

1010 IF rf=V OR rt='N" THEN 4O30 ELSE 

60T0 3990 

4020 SOUND 1,60,20,15 

4030 NEIT i 

4040 GOGUB 4340 

4050 LOCflTE 27,22:PRINT 'Une autre B/H" 

4040 rt=INKEitîIF rS=" THEN 4040 

4070 IF rt*"o" DR rt="Q' THEN 3890 

4080 IF rt=-n" OR r*='N" THEN CLS:SOTD 1 



40 

4090 GOTO 4060 



DESSIN DU CADRE 



4110 ' 
4120 : 
4130 ORIBIN 78,3B4:0RAil 450,0,1, 

,-25B:DRAN 0,-258:DRAy 0,0 
4140 ORIBIN 76,386iDRAH 454,0:0 
242:DRAH 0,-262:0RflH 0,0 
4150 RETURN 
4160 ' 



DESSIN OE LA GRILLE 



4170 ' 

41 BO ' 

4190 PRINT CHRI(22HCHRil]> 

42O0 PEN 1 

4210 FOR (i=0 TO 6 

4220 FOR »=0 TO 3 

4230 GOSUB 4430 

4240 FOR j=l TO 4 

4250 LOCflTE 6H.h,H4iy+j 

4260 PAINT lllg.j) 

4270 NEXTrNEITiHËIT 

4280 RETURN 

4290 HINDOU tl,6,33,2,17:CLS UiPAPER 11 

,2:CLS tl: RETURN 

4300 RETURN 

4310 ' 



COULEURS 



<;:o ■ 

4330 ' 

4340 FOR cc=! TO 25:GD5UB 4430: INK 2, ce: 

PAPER ll,2:FDR t=0 TD 400:NEIT:NEIT 

4350 INK 2,26 

4360 RETURN 

4370 : 

4JB0 ' HUSIOUE 

4390 : 

4400 »=I»1:IF i)32 THEN ■=! 

4410 50UNO 1,(1(1) ,d(i)i2, 15,1 

4420 RETURN 

4430 ii=m*IiIF n)32 THEN n=l 

4440 «»INT!RKDf21+2 

4450 SOUND l.nliil/i, dlHl, 15,1 

4460 RETURN 

4470 DATA 159,20,142,20,127,20,159,20 

4480 DATA 159,20,142,20,127,20,159,20 

4490 DATA 127,20,119,20,106,40 

4500 DATA 127,20,119,20,106,40 

4510 DATA 106,15,95,5,106,10,119,10,127, 

20,159,20 

4520 DATA 106,15,95,5,106,10,119,10,127, 

20,159,20 

4530 DATA 159,20, 213,20, 159,40 

4540 OATA 159,20,213,20, 159, 40B 



tcLcatiÇ 



GEOMETRIE 



o 




Jouez au morpion pendant 
les cours de maths, l'ordina- 
teur travaille pour vous ! 
Avec ce programme, vous 
pourrez par exemple résou- 
dre un système de plusieurs 
équations, trouver les raci- 
nes d'un polynôme d'un de- 
gré quelconque, vérifier les 
asymptotes d'une courbe, ou 



tout simplement obtenir la 
courbe représentative d'une 
fonction... 

Si votre problème fait inter- 
venir des formes géomé- 
triques (carrés, rectangles, 
losanges, cercles, ellipses, 
hexagones...), vous pouvez 
aussi les reproduire sur votre 
écran. 



A. 



- Instructions 

Après avoir lancé le programme, 
l'ordinateur va initialiser certaines va- 
riables, charger la routine de copie 
d'écran (lignes 11000-11030), pré- 
parer le message d'entrée... C'est 
pour cela que l'écran reste blanc 
quelques instants. 

Puis les options principales appa- 
raîtront. Pour sélectionner une 
d'entre elles, vous devez appuyer 
sur la touche correspondant à la 
première lettre de celle-ci. Par 
exemple, pour sélectionner l'option 
'Equation, vous devez appuyer sur 
'E'. 

A n'importe quel moment du pro- 
gramme, vous pouvez revenir à ce 
menu principal : il suffit d'appuyer 
sur la touche 'TAB'. 
L'écran est divisé en deux parties : 
en haut, la représentation graphi- 
que en cours (avec les axes en noir 
et les unités en orange (INK 2,15)) 
et en bas, un rectangle où s'effec- 
tueront tous les dialogues entre l'or- 
dinateur et vous. 
1) L'option 'Equation" 
En appuyant sur 'E', deux nouvel- 
les options apparaissent : 1 -Visua- 
liser 2-Entrer. Vous pourrez donc 
visualiser l'équation qui est actuel- 
lement traitée (en appuyant sur T) 
ou bien enregistrer celle-ci (en ap- 
puyant sur'2'). 
-Visualiser l'équation 
Après avoir tapé sur T, l'équation 
traitée apparaîtra tout simplement à 

25 



l'écran. Il surfit d'appuyer sur une 
louche pour continuer. 
- Entrer l'équation 

Après avoir tapé sur '2', l'ordinateur 
vous demande d'entrer l'équation à 
traiter. 

Si vous voulez simplement modifier 
celle qui est déjà en mémoire, ap- 
puyer sur la touche 'COPY' : vous 
la ferez ainsi apparaître à l'écran. 
Lorsque vous avez terminé, ap- 
puyez sur 'RETURN'. L'ordinateur 
vous demande alors de taper sur la 
barre d'espacement : ceci est né- 
cessaire pour valider l'équation. 
Attention cependant, il faut ap- 
puyer seulement sur espace sans 
'SHIFT'. Si cela se produit, retapez 
'RUN'. (Vous ne verrez pas appa- 
raître les lettres car la couleur de 
l'encre sera la même que celle du 
papier) 

2) L'option 'Courbe' 

Cette option vous permet d'obtenir 
la courbe représentative de la fonc- 
tion que l'ordinateur a en mémoire 
(au lancement du programme, il 
s'agit de :f (x) = 0). 
Pour tracer cette courbe, l'ordina- 
teur a besoin de plusieurs rensei- 
gnements : à partir de quel point 
doit-il commencer le traçage, et jus- 
qu'où ? (vous devez donc enlrer 
l'abscisse de ces deux points). Puis 
il vous demandera l'unité en pixels 
sur l'axe xx ' et l'axe yy ' : (lorsque 
vous lancez le programme pour la 
première fois, l'unité est de 16 
pixels sur les deux axes). Plus le 
nombre de pixels est grand et plus 
la courbe sera agrandie. 
Si vous ne voulez pas changer les 
unités, appuyez seulement sur 'RE- 
TURN'. 

Le traçage peut être interrompu en 
appuyant sur TAB". 

3) L'option 'Images' 

En appuyant sur T, l'ordinateur se 
charge de calculer l'image ou les 
images du ou des nombres que 
vous lui donnez. 

1- calcul d'une seule image 

Après avoir tapé sur '1 ', il vous suffit 
d'entrer le nombre à traiter. Si ce 
nombre n'a pas d'image, l'ordina- 
teur vous dira : (non défini) 

2- calcul d'une suite d'images 
Après avoir tapé sur '2', l'ordinateur 
vous demande à partir de quel nom- 
bre il doit commencer les calculs, 



jusqu'où, et avec quel pas. Cela cor- 
respond tout simplement à : 'FOR f 
= ... TO ... STEP ... (ce traitement 
s'effectue dans la ligne 1250). 
Il vous demandera aussi si vous dé- 
sirez un tirage sur imprimante : 
vous tapez '0', 'N' ou 'RETURN' (ce- 
la correspond à une réponse néga- 
tive). 

4) L'option 'Axes' 

Grâce à cette option, vous, pouvez 
déplacer les axes xx ' et yy '. Pour 
indiquer à l'ordinateur la nouvelle 
position des axes, vous déplacez 
une croix au moyen des flèches 
directionnelles (cette croix repré- 
sente la nouvelle intersection des 
axes). Pour valider cette position, il 
faut appuyer sur'RETURN'. (Cepen- 
dant, une confirmation est néces- 
saire car l'écran sera nettoyé). 
En même temps que vous dé- 
placez les axes, la nouvelle position 
de l'intersection des axes est indi- 
quée en bas de l'écran. 

5) L'option 'Traiter écran' 

Deux nouveaux choix apparaîtront 
à l'écran après avoirtapé surT : 
1- Effacer l'écran: 

Vous avez tout simplement effacer 
l'écran. L'ordinateur vous demande- 
ra quand même de confirmer votre 
choix. 

2- Copier l'écran 

C'est grâce à cette option que vous 
pouvez effectuer une copie d'é- 
cran sur une imprimante. Ici, l'ordina- 
teur fait appel à une routine écrite 
en langage machine (point d'en- 
trée : CALL SA000). Il lui faudra 
une cinquantaine de secondes 
pour effectuer l'impression (celle-ci 
peut être interrompue en appuyant 
sur TAB'). 

(Cette routine a été réalisée pour 
fonctionner avec une DMP 2000.) 

6) L'option 'Repérer' 

Ici, vous pouvez repérer le point 
d'intersection de deux droites ou 
de deux courbes. 

En bas de l'écran apparaissent les 
coordonnées d'un point que vous 
déplacez à l'aide des flèches hori- 
zontales. Ce point est facilement 
repérable à l'écran : il clignote et il 
appartient à la courbe représen- 
tative de la fonction actuellement 
traitée. 



Ce point n'est visible que s'il existe 
et s'il ne dépasse pas les limites 
inférieures et supérieures de l'é- 
cran. 

Pour connaître les coordonnées 
d'un point quelconque de cette 
courbe, il vous suffit donc de ra- 
mener le 'spot' au niveau désiré. 

7) L'option 'Figures' 

- Ellipses (ou cercles) 

- Quadrilatères (carrés, rectan- 
gles, losanges, trapèzes... ) 

- Triangles 

-Polygones (réguliers - hexa- 
gones,... - ou non réguliers) 

- Droites verticales (Le programme 
peut traiter n'importe quelle équa- 
tion de droite, sauf celles de la 
forme :x = a). 

Il est possible d'afficher unique- 
ment un segment ou un point : 
pour ces deux cas, il taut sélec- 
tionner l'option 4 ('Autres') puis l'op- 
tion 2 ('Polygones non réguliers') : 
Pour afficher un point : quand l'or- 
dinateur vous demande 'Nombre 
de côtés...', tapez 1- (pour un seg- 
ment, tapez 2). Il ne vous reste qu'à 
taper les coordonnées de ce point. 
(Pour un segment, tapez les coor- 
données des deux points qui li- 
mitent celui-ci) 

Les variables les plus utilisées : 
unx : unité en pixels sur l'axe xx ' 
uny : unité en pixels sur l'axe yy ' 
ax : abscisse en pixels de l'axe yy ' 
cp1$ : en tapant 'PRINT cp1$\ 
vous sélectionnez le crayon n° 1 . 
cp2$ : ... vous sélectionnez le 
crayon n° 2. 

cp3$ : ... vous sélectionnez le 
crayon N° 3. 

equ$ : cette variable contient l'é- 
quation actuellement traitée. 
message$ ■ cette variable contient 
le message d'entrée (Options), 
impo : si le calcul en cours est im- 
possible, impo = 1 sinon impo = 

Deux exemples d'utilisation 
Essayez d'établir (à la main !) la 
courbe représentative de cette 
(onction : 

x 3 + 2x 2 -3 

f(x)= — — 

x 3 + x 2 " 6x 

Avec ce programme, 

- sélectionnez l'option 'Equation' 



puis 'Entrer'. Puis, tapez 
(x A 3+2'x A 2-3) / (x A 3+x A 2-6x), suivi 
de 'RETURN', (Ensuite, appuyez 
sur la barre d'espacement). L'équa- 
tion est maintenant enregistrée. 
- sélectionnez l'option 'Courbe'. 
Entrez les 4 paramètres néces- 
saires, à savoir: 'Abscisse du 1er 
point' (tapez -10), 'abscisse du 
2ème point' (tapez 10), 'unité sur 
l'axe xx " (tapez 16), 'unité sur l'axe 
yy" (tapez 16). 

L'ordinateur va maintenant tracer la 
courbe représentative de la fonc- 
tion qu'il a en mémoire. C'est tout ! 
Si vous voulez une copie sur impri- 
mante, sélectionnez l'option Traiter 
écran' puis 'Copier écran'. En moins 
d'une minute, la copie sera effec- 
tuée, (les unités n'apparaîtront pas 
sur celle-ci : c'est à vous de les re- 
passer à l'aide d'un crayon d'une 
couleur différente) 

Un autre exemple plus simple : 
Comment résoudre ce système 
d'équations avec le programme ? 
y = 2x-l 
y = -1x + 4 



D'abord, nettoyer l'écran (si néces- 
saire). 

Puis, entrez la première équation : 
option 'Equations', 'Entrer' et tapez 
'2*x-r 

Demandez maintenant la première 
représentation graphique : option 
'Courbe'... (vous pouvez garder les 
mêmes paramètres que dans le pre- 
mierexemple). 

Recommencez ce processus pour 
la deuxième équation. (Celle-ci s'é- 
crit : (-1/2)*x+4) en gardant les mê- 
mes unités. 

Sélectionnez l'option 'Repérer'. Uti- 
lisez les flèches horizontales pour 
déplacer le 'spot' jusqu'au point d'in- 
tersection des deux droites. Il ne 
vous reste plus qu'à lire les coor- 
données en bas de l'écran : x = 4 
et y = 5. C'est en effet le couple de 
solution du système précédent. 
Ce programme est compatible avec 
les Amstrad 464, 664, 6128. 
Bon amusement ! 
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Laurent CROB - Juillet 19B5 



100 REM initialisation; 

105 GOSUË 10005:GOSUB 1I005:EOSUB 1 2005 : 

60TO 210 

200 REH retour des suus-prograiies 

205 gJ=lNKEYJ:IF gt='" THEN 205 

210 CLSïPRINT lessagef; 

500 REfl boucle principale 

503 gf'tlPPERIlINKEïthlF gl=" THEN 505 

510 ON ]NSTRHCTRAEF',gt> B0TD 1005,200 

5,3005, «005,5005, 6005, 7005 

515 GOTO 505 

1000 REM traiteient ieages 

1005 ON ERRDH 6DT0 65005 

1010 CLSiPRINT CpSi'l-'ICpIff'IiigJ d'à 

n réel "(c:p2*; "2-"icpl*i "Plusieurs re 

els' 

1015 gt=INILEÏi!lF gt=" THEN 1015 

1020 IF ftSCigJ)=m THEN 210 ELSE IF gt= 

T THEN 1105 ELSE IF gl*'2' THEN 1205 

1025 60TO 1015 

1100 REfl si proi un réel 

1105 CLSïPRINT Muge d'un réel [' 

1110 PRINT ■fr;cj2lj:INPUT ",nbt 

1115 IF nùKHWIHtl THEN 210 ELSE nb=V 

ftUatt) 

1120 LDMTE l,2iPRINT rpltj "H ■; cp2t;rt i 

cpl(! , l= , |cp2l[FN Flnbl 

1125 IF iipo=l THEN PRINT • (non défini) 

*liipB=fl 

11Î0 EEIT0 205 

1200 REH ss proi plusieurs réels 

1205 CLSiPRINl "liage de plusieurs réels 

1210 PRINT "de l'/i s'iLOCATÊ 5,2:PEN 2 

1215 1NPUT ",nbl(:]F nbit=CHR* 11911 THE 

h 210 EL5E nbl=VAL(nbltl 

1220 LOCflTE 17,2* INPUT ",nti2liIF nb2t*C 

HRH191) THEN 210 ELSE nlt2=WLInb2tl 

1225 PEN i : IF nb2(nbl THEN PRINT 'Erreur 

— ":E0TD 205 

1230 CLSiINPUT "Quel pas ? a ,paC:]F psJ= 

[HRt(I9l> THEN 210 ELSE pa^ABS(VALlpal) 

):1F pas=0 THEN 1230 

1235 CLSiINPUT "Tirage sur Itpriiante ? 

ID/NI Vlirt=uf>PER*(rt)!lF r)*" THEN 1 

245 ELSE IF rK>"fl" AND rSO'N" AND rt<> 



CHSIIIHI THEN 1235 
12(0 IF ASC(rtl=l?l THEN 210 
12*5 IF r*='0 - AND INPI1F500I»30 THEN 1* 
pMiPRINT tB 1 CHRtl27]jCHRII64lj"F(>;) = 'jL 
OHERflequt):PRlNT 18 ELSE iip-0 
1250 CLSiFDR f=nbl TQ nb2 STEP pas 
1255 PRINT 'f<Vp2t!f;cpltj'")= , !cp2t|FN 
f(fl 



1260 IF iipo=l THEN PRINT ■ (na 



Min 



1245 IF iip=l THEN PRINI W,*FI"|tl'J""| 
FN flfl 

1270 IF iapD=l THEN PRINT 13,' (non défi 
nil"iiipo i 

1275 o(=lNKEïtiIF gl=CHR«(l?l] THEN 210 
ELSE IF s**" THEN 1275 
12B0 PEN IiNEJTîGOTQ 205 
2000 REH traiteient courbe 
2005 CLSiPRINT"Abs:isse du 1er point:":? 
RINT'xl=' 

2010 PEN 2:L0CATE 4,2iINPUT",«ldIF rit 
■" THEN 2010 ELSE IF ASC(«lt)«lM THEN 
210 ELSE *1=VALI»1(I 

2015 PEN l:CLSiPRlNT'Abscisse du 2nd poi 
nti , :PRINT"*2=" 

2020 PEN 2rL0CATE 4,2iINPUT",»2t:IF «21 
■" THEN 2010 ELSE IF flSCtUÎlMïl THEN 
210 ELSE (imihlf, 

2025 PEN lîCLSiPRINT "Unité sur l's.e " 
|cp2*t "K"'"(Epl*| " (en piielsl t'iPRINT 
SPCU5);-<ictuelleient: ";cp2f| lun<»21/ 
2|cplt("l" 

2030 PEN 2:L0CATE 1,2: 1HPUT ",unlf!PEN 
I : IF unlM" THEN uni=0i6DTD 2035 ELSE I 
F ASC(unlll=l9l THEN 210 ELSE unl=VAL(un 
1*) j IF unl=0 THEN 2030 
2035 CLSiPRINT 'Unité sur l'«e ";cp2Ji 
*yy"?cpl*f " (en ci.els! l'iMIH SPC 11 
5);' (actuellement) '|cp2I|<uny+2l/2;cpll 

2040 PEN 2jLDCATE 1,2iINPUT ",un2liPÉN 

1:1F un2t="' THEN un2=0rG0T0 2045 ELSE I 

F ASCiun2l)-I91 THEN 210 ELSE uq2>ML(un 

2lls:IF un2=0 THEN 2040 

2045 IF unlOO THEN un>=lunl-ll»2 

2050 IF iin2<>0 THEN nny»tiiRÎ-U*ï 

2055 CLSïPRINT 'Veuillez patienter.' 

2060 ON ERR0R GOTO 65005 

2065 SOSUB 10075 

2070 polnt=l 

2075 FOR f=il»un< T0 <2tun» STEP 2 

20FJ0 a=FN flf/uniHunïi IF iipo=i OR 1)5 

0û-if DR a<-ay-100 THEN point'liEOTO 20? 

ï 

2085 IF points THEN PLOT f .a:point = EL 

SE DRAW f,i 

2090 gt'lNKEYiMF gf=CHRf(191> THEN 2100 

2095 iipo=Q:NEU 

2100 GOSUB 10073 

2105 GDTD 210 

'3000 REH traiteient écran 

3005 CLS 

3010 PRINT cp2J;'l-";cplt;"Effacer l'ecr 

an, "!cp2t| "2-' |cplt| 'Copier l'écran" 

3015 gt=INKErtrIF g!-" THEN 3015 

3020 IF nt'T THEN 3105 

3025 IF gJ«"2' THEN 3205 

3030 IF flSCfniM91 THEN 210 

3035 BOTO 3015 



(cran t'iPRINT 
"!Cp2*|'IOrNt 



3100 REM ss proi eHn 

3105 CLSiFRINI 'Efface' 

"Conf ir»ei-vnus ci cho: 

'icpll 

3110 gt=UPPERIUNKEÏtl:IF q«>"0" AND gt 

<>■»" AND îKîGBBtWJI THEM 3110 

1115 IF g*=-H" OR tSCIgtWÎI THEN 210 

3120 CLSiSDSUB 10075 

3125 60TD 210 

3200 FtEM ss proi copier écran 

3205 IF INPUF500I AND 6* THEN C15:PRINT 
■EU3-VOU5 sur [ b ) que l'ieprieante est 

branchée 7 ...':60TQ 205 

3210 PAINT ta,CHH)f27)jCHRf(441i'Flx)='i 

LONERtiequJI 

3215 PRINT IB:QR]6IN 0,50:P0KE M0AO,0:C 

LSsPRlNT ■Veuillez patienter. 'iCALL IA00 



1220 IF PIEK1M0M1O0 THEN FOR (=1 TO 3 

20:PRINT i8,CHRl(0);!NEIT:60TO 3210 

3225 PR1NT IBîPRINT i8,SPCUl)i't« l - 

Croq Juillet I9B5 m'sFQR f=l TD 4:PR 

INI IBiNEIT 

3230 OR16IN a*,iyi60TO 210 

«00 REM traitement repérage 

«05 ON ERROft BOTD 65005 

4010 ib=0ipas=0iCL5iPRINT 'Utilisez les 

Miches ■|cp2l|CHRII242licplli" et ']cp2 

S:CHRii24Il!coll 

«15 gMINKEYSllF gt=" THEN «15 ELSE 1 

F b*-CW»(I91) THEN 210 ELBE CLSiPRINT ' 

Abscisse i"|cp2*i (ab<2]/uni|Cpll!PRINT " 

Ordonnée ! - |Cp2t(FN f((atn2Munxl|cpli 

«20 IF iipo'l THEN LDCATE Il,2iPRl«T "( 

non de(ifiii'îiipa=0 

«25 couleur=TEST litn2,FN Fliabt2Wunxl 

«30 PLOT abi2,FN F f [ ab*Z* /uiik J *uny , 3 

«35 jMNKEYfclF gt-" THEN pas*0iB0T0 

4035 

«40 PLOT abi2,FN Flijb»2)/unxHuny,coul 

4045 lipo'O 
4050 HOVE 0,0,1 
4055 g=ASCIgf> 

4060 IF g=243 AND abt2*pas+K63B-J» THEN 
pas=pa5-M:ib=ab+pasi60T0 4105 
4065 IF 5*242 AND jh»2-ms-l>-aji THEN pa 
s=p*s+l;ab=ab-pasi60TO 41D5 
4070 IF HSGfglï-m THEN 210 
4075 pas=0:6DT0 4025 
4100 REH ss pro: affichage coordonnées 
4105 PEN 2:L0CSTE 11,1:PRINT (abi2]/un*| 
■iLDCATE ll,2iPRINT FN fil) 
b*2J /urm)î " 
4110 IF iipo=l THEN LOCATE H,2iPRlNT ■ 



isin 



;:t;S=v 



4115 PEN liSOTO 4025 

5000 REH tnlteunt axes 

5005 DR16IN 0,0! x=a*/2: y=ay/Î! pas=0:CLS 

5010 PR1NT [HRt<23l|CHRfll)| 'Utilise: '[ 

CHRf(242lj',';CHRt[243ljYiCHRtl240l|", 

■!CHRJ(2411|' et ENTER* 

5015 gl=lNKEïf!lF g*=" «THEN 5015 ELSE 1 

F gMCHMim) THEN 210 ELSE CLSiPRINT ■ 

Abscisse de l'aie fyy')i'|cp2li<»2|cpU[ 

'pixels'iPRINT 'Ordonnée de l'axi Ixx'lr 

';cp2f;yi2!cplt|'piiiels' 

5020 BOSUB 5205 

5025 g*=INKE»iIF gt=" THEN pas<OiSDTO 



5030 [f INKÏYIOKM UNO ytpastm THEN 

ç:EU9 !200:y=foas:S0SUB 5200 

533: I' INWIÏKM (NO y-pas>24 THEN G 

G5. : î !200w=v- t as:6G5UB 5200 

5^40 |( WMTIBKM UNO <-pas>0 THEN 60 



:- '.;:(:. 



B 5200 



!=«5 ;' INXEÏIIKH UNO *+pas<319 THEN 
=:SUE 520C:.=i-oas:GDSUB 5200 
5350 IF c.l=:HPt:]«ll THEN PLOT inMi.yt 
2 r DRAW :;,0:P.D1 i.i2,yt2-16:DRANR 0,32: 
:RIS;s ai.ayiPRlNT CHR*I23)!CHR$(01;:GDT 

: 2ic 

5C-55 IF }i»[iwii|]| THEN 5105 

5040 SOI-: 5025 

!I0; «EH ss cr:: valider 

!I0! CL5 : :p|h"[onfirHï vous ? IB/MÏ'iP 

RINT'axe : ïy ) i *tcpZ*iK*2icpl*| a m 

in >:';:c2*;v»2i:pl* 

5110 (WJPPEMlHHÏtlHF gl=" THEN 511 



5115 IF gl=CHRIU91) QR gl='N" THEN gt=C 

HRtimiiGOTO 5050 

5120 IF g*="D" THEN CLBiPRINT CHR)(231 t C 

HRtlO)!iax=n2:ayy*2iBRI6IN xt2,yi2iE0S 

UB 10075:6010 210 

5125 6DT0 5110 

5200 REH ss proi affichage axes 

5205 PLOT «t2-J6,y'2iDRfillR I2,0iPL0T «»2 

,y«2-16:DRAyR 0,32 

5210 PEN 2;L0CflTE 25,liPRINT x^iLOCATE 

25,2:PR1NÎ y*2:PEN 1 

5215 pas=pas*lifiETURN 

6000 REPI traitement Equation 

6005 CLSiPRINT cp2tj'l- , ;cpU!'Visualise 

r"iSPC^8>f cp2t; "2--|cpJ*; "Entrer" 

6010 glMNKEVtsIF gt=" THEN 6010 

4015 IF g*s«r THEN 4205 

4020 IF gl='2' THEN 4105 

6025 IF gl=CHRJI191] THEN 210 

4010 S010 6010 

4100 REH ss pro: entrer équation 

6105 ON ERROR SOTD 65005iCLG:KEY 156, equ 

6110 CLSiPRINT coït; "Tape: l'équation a 

traiter i':PRINT'FI»l=';cp2(:L0CATE 6,2i 

INPUT",etiulIlPEN lï IF equlM" THEN PRI 

NT CHRU ' : ; : GOTO 6110 

6115 IF SBCItqUltî-Hl THEN 6140 

6120 CLB:PRINT "Appuyé! sur ";q>ï*|'E5P 

flCE'icpl*)"." 

6125 KEÏ 157,' 6135 DEF FN FI*)*" +1*111*+ 

CHRtflI)+'60Tu 6115'tCHRtiIlliKEY DEF 47 

,1,157 

6130 gi=INKErt:lF gl<>' ' AND glOCHRUl 

tll THEN 6110 ELSE IF gl=CHR$Ilïll THEN 

equIf=equtiBD10 4140 ELSE CLSiPRINT'Vlui 

liez patienter'iNINDOH IO,2,2,24,24iPEN 

0:END 

4115 DEF FN F(xl=TTR5BRTBR5T 

6140 HINDOU I0,2,39,23,24|PEN UKEY DEF 

47,l,]58iKEï 156,CHRJI224l:equJ*equlliG0 

TO 210 

4200 REH ss pro: visualiser équation 

6205 CLSiPRINT 'Equation actuelleient tr 

aitee s " : PRINT , F(-l= , !cp2tiLDNERI(equll 

icpll 

6210 GOTO 205 

7000 REH traitaient figures 

7D05 CLBiPRINT cp2fi"l-Vpl$)"Ellipses 



■;cp2#; "2-';cp lt; "Quadrilatères ' 
l-"icplïi'Triangles'iC(2$["4-"icpl*|"DrD 
i tes verticales ■|cp2li'5-'icpliyAutre 

7010 gl=INKEÏt!lF gf-" THEN 7010 

7015 IF (WHMtm) THEN 210 

7020 IF gl'"l' THEN 7055 

7025 IF gM'2' THEN 7155 

7030 IF g*=-3" THEN c*3:GDTD 7665 

7035 IF gi="4' THEN 7755 

7040 IF g*="5" THEN 7505 

7045 GOTO 7010 

7050 REH ss pro: ellipses 

7055 CL$; PRI NT 'Coordonnée s du centre de 

l'ellipsei'iPRINT "x-'iSPCdB! |"¥"* 

7060 GDSUB 7B00 

7045 IF retours THEN retour=0î6DTD 210 

7070 CLSiPRINT 'Rayon de l'ellipse sur 1 

'ne »»' rtFHIKTTi"' 

7075 PEN 2iLDCftTE 4,2iINPUT",rUiPEN li 

IF rlMCHWdïll THEN 210 ELSE IF rit*" 

THEN 7075 ELSE rl=ABS(VAL(rl*)> 
7080 CLSiPRINT 'Rayon de l'ellipse sur I 
'axe yy' :":PRlNTry=" 
7085 PEN 2iL0CATE 4,2iINPUT",r2liPEN 11 
IF r2*=CHMIWII THEN 210 ELGE IF rll=" 

THEN 70B5 ELSE r2=(BS(VAL(r2t)l 
7090 CLS 

7095 PRINT 'Veuille! patienter' 
7100 DEF FN BlLlx ( Y,f ( in)K,ri,r2)=<5flRll- 
(lf/unx-.i/rl]-2Hr2liinc=0iFDR f«l«+rl) 
»un<-2 TD (i-rl)<un< STEP -2 
7105 PLOT f+2,ly+ancUuny:DRAN f,iytFN e 
lMi ) y l f ) unx,rl,r2IHunyiPL0T f+2,Iy-anc 
)>uny:DRAH f,ly-FN ell(x,y,f ,un«,rl,r211 
tuny:anc=FN elll<,y,f ,unx,rl,r2l 
7110 gI=INKEY$:IF gf=CHRIl]?ll THEN 210 
ELSE MEUT 

7115 BOSUB 10075iG0TD 210 
7150 REH ss pro: quadrilatères 
7155 CLSiPRINT SPC ( 5ï j cpl* j - 1-- j cpl » j "P* 
ralUlouranes '|cp2t|*2-'|cplt|'Trapei 
es'iPRINT SPC(9)(cp2ti'3-'icpU; "Autres 
quadrilatères' 

7140 gWNKEÏliIC gt*" THEN 7140 
7145 IF gt=CHRt(191) THEN 210 
7170 IF gl='l' THEN 7205 
7175 IF gl='2' THEN 7405 
71B0 IF gl='3' THEN cMiBDTO 7465 
71B5 BDTO 7140 

7200 REH ss proi parallelograiees 
7205 CLSiPRINT SPC(41[cp2)|'l-'|cpll|'Ca 
rres/Rectangles a icp2f|'2-'icplf)'LDSin 
ges'iPRINT SPCI7l|Cp2t)'3- , |cpU| 'Autres 

parai lelograues' 
7210 gMINKEYtilF gl=" THEN 7210 
7215 IF gMNHfflHI THEN 210 
7220 IF gl-'l' THEN 7255 
7225 IF gt='2' THEN 7100 
7210 IF gt='l' THEN 7350 
7215 60TD 7210 

7250 REH ss-proi carres/rectangles 
7255 CLSiPRINT'Coordonnees du point infe 
rieur gaucheii='|SFC(lBirys' 
7260 BOSUB 7G05:«l-x:yl=yiIF retour^l TH 
EN retDur=OiBOTO 210 
7245 CLBiPRINTCoordonnees du point supe 
rieur droit! xs'jGPCilGIiV 
7270 EDSUB 7G05: < 2*ny2=yiIF retour-1 TH 
EN retour=0iG0T0 210 



7275 IF xl>>2 DR yl>yZ THEN CLSiPRJNT-Er 
reur ...':G0T0 203 

7280 cotel"ABSIil-.2Hun.:cote2=ABStyl-v 
ÎHlin^fLDI KltunK,yl»uny:DRAHR cotel,0: 
DRAKR 0,cote2:DRANR -cotel.OiDRAtIR 0,-cq 
IÛ 

7285 GOSUB 10075:6010 210 
7300 PEU ss pro: losmges 
7305 CLSjPRINT'Cnordnnnees du point li p 
lus bis i , :PRlNT , .*" l SPCU6)|V 
7310 SOSUB 7805!Ki=it»mijiiyl«ï*ujiy!lF ret 
nur*l THEN retour =0:GDTD 210 
7315 CLSiPftlNT'CoDrdornees du point Je p 
lus i gauctie:x= - ïSPC(10) i -jf-" 
7320 GOSUB 7B05:x2=Huni:y2=ytunyi!lF re 
tour=l 1HEN retour *0:6aTD 210 
7325 IF *Kx2 DR yl)y2 THEN CLSiPRlNT'Er 
reur ...'tGOTO 203 

7330 PLÛT il.yhDRAH >2,y2iDRAH »J,2ty2- 
ylrDRAV 2txl-i2,y2:DRAN «l,yl 
7335 EJÎUS 10075:E0TD 210 
7350 REH ss -pro: autres parai lelDgrines 
7355 CLSiPRINT'Coordonnees du point infl 
rieur gauche:K=' }SPC Clfi] t "y-" 
7340 60SUB 7605: x l=x*unx :y l=y#Lnyj IF ret 
cur=l THEN retnur=0:6CT0 210 
7365 CLSiPRINT'Coordonnees du point supe 
rieur gauchen^îSPCdBI j'y* 
7370 GOSUB 7605]*2=xiunxiy2*yiuny:IF rit 
our=l THEN retour=0:60TB 210 
7375 IF yl>y2 THEN CLSiPRlNT'Erreur ,,,' 
:60T0 205 

7380 CLSiPfllNT'Langueur de 11 bue i'iPR 
INT'I-' 

73B5 PEN 2:L0CATE 3,2:1NPUT",H:PEN Jil 
F It=" THEN 73B5 ELSÊ IF 1I=CHR$I191) T 
HEN 210 ELSE l'ABSIVALimHunn 
7390 PLOT «!,yl:DRANR l.OiDBAH «2+],y2:D 
RANR -l,0iDRAN «l,yl 
7395 6DSUB 10075:8070 210 
7400 REH B.proi trapèzes 
7405 CL5:PRINT'Coordonnees du point infe 
rieur gauche: * f : PHI NT" x=" ïSPC < 1BH | "y"' 
7410 605UB 7905;xl>>tunxtfl=ytunyiIF ret 
our-1 THEN retour-OiSOTO 210 
7415 CLBiPRINT'Coordonnees du point supe 
rieur siur.hBi , jiPR[NTVi5PCIlB)| , y I " 
7420 BOSUB 7805:»2=Kiun<]y2=ytuny:lF ret 
our-l THEN r(tour=0:SOTG 210 
7425 IF yl>y2 THEN CLSiPRINT'Erreur ...■ 
iGOTO 205 

7410 CLSiPRINT'Longueur de la grande bis 
e t-ïPRIHT-J 1«- 

7435 PEN 2iL0CATE 4,2iINPUT",llt:PEN h 
IF 11MCHRII191) THEN 210 ELSE IF lit»" 
THEN 7435 EL5E Il»ABSIVALUlt)l»unx 
7440 CLSiPRINT'Longueur de 11 petite bas 
s !"iffiIKI"J2-" 

7445 PEN 2:L0CATÉ 4 1 2iINPUT",12iiPEN 1: 
IF 12t=CHRI(l?ll THEN 210 ELSE !F I»*" 
THEN 7445 ELSE l2=ABSIVALI12tlUui» 
7450 PLDT il.yliDRAHR 11,0: DRAW «2*1!, y! 
:DRANR -I2,0jDRAN xl,yl:60SUB 10075iB0TD 
210 

7500 REH ss pro: autres figures 
7505 CLSîPRINT cp2tj , l-'icpll; , Polygones 
réguliers ';ep2t|'2-'jcpil;'non reguli 

7510 gt=INKEVt;IF gt=" THEN 7510 
7515 IF jWHWftW THEN 210 



7520 IF gt='l" THEN 7555 

7525 IF gt='2 - THEN 7650 

7530 BDTO 7510 

7550 fiEPI ss pro: polygones réguliers 

7555 CLSîPRlNT'Noibre de cotes de ce pal 

ygone s'iPRWT'c** 

7540 PEN 2:LOCATE 3,2:INPUT ,, ,ctiPEN lil 

F ct=" THEN 7560 ELSE IF tt=CHFit(19l) T 

HEN 210 ELSE c=ABSIVALlctn 

7545 CLSiPRINT'Coordonnees du centre du 

polygonei'iPRINTVi'iSPCIlBIi'V 

7370 6D5UB 7B05:<c=Hun»;yt=y»uny: [F ret 

our=1 THEN retour=0:GOTD 210 

7575 CLSiPRWnvon de ce polygonei'iPR 

INT-r=" 

75B0 PEN 2:LDCATE 3,î: INPUT" " , r»i PEN UJ 

F rt=" THEN 7580 ELSE IF rt=CHR((Hll T 

HEN 2J0 ELSE r=AB5IVAL(rIH 

75B5 PLDT xc+nunK.yciFDR f=0 TD 2*PI ST 

EP 2»PI/c 

7590 DRAU xc+r»COS(f)»un* ( yc+r*SlNIf l*un 

7595 gt=INKEYfiIF gl=CHRtU91t THEN 210 

7400 NEJTiORAN xc+r'un*,yc 

7405 G05UB IQ075:BDT0 210 

7450 REM ss pro: polygones non réguliers 

7455 CLSiPRINT'Nmbre de cotes de 11 (ig 

ure l'iPRÎNT'rV 

7440 PEN 2:LDCATE ï,2iINPUT",[lrPEN Jil 

F ct=CHRt(191) THEN 210 ELSE IF ct=" TH 

EN 7640 ELSE c=ABS(VALIcfll 

7445 CLSiPRINT'CoordDnnees du 1er point 

de la il^rm*' itKlïîi t'y*' 

7470 GOSUB 7800i«l=xtunnyl=yHinyiIF ret 

nur=I THEN retaur=0!GOT0 210 

7675 PLOT il,y!iF0R *-! T0 c 

7480 CL5:PRJNT'Coordonnee5 du point na"; 

(t'l'iPW»T'ï**|SfTri8J{V' 

7485 GOSUB 7B0Oi»=^uniiy=ytunyiIF retou 

r-1 THEN retour=0:GDT0 210 

7690 BRAN >,y 

7695 NEKT:DRAN xl,yl 

7700 SOSUB 10075:BDTO 210 

7750 REH ss pro: droites en <=i 

7755 CLSiPRINT'L' équation de 11 droite e 

St i'iPRIHTV 

7760 PEN 2:L0CATE 3,2:INPUT",xl:PEN 1:1 
F xl=" THEN 7760 ELSE IF <f=CHRJU91) T 
HEN 210 ELSE x=VALkl) 
7765 PLOT x<unx ( OiDRANR 0,400: DRAW! 0,-B 
00 

7770 605UB I0075:SOTO 210 
7800 REH ss pro: entrée d 
7805 PEN îical-3 
7810 10CATE col,2:lNPUT" 
7815 IF rt*CHRK191) THEN retour»! 
: RETURN 

7820 IF r!=" THEN 7810 EL5E i*V(Vlfrl! 
7825 IF :ol=23 THEN yatPEN liRETURN ELS 
E x=i 

7B30 col»23:G0T0 7B10 
10000 REH initialisation ecran-variables 
10005 MODE 1:INK 0,24iINK 1,0: INK 2,15:1 
NK 3,0,26iPEN liPAPER Os BORDER 26iHDDE 1 
10010 ïEÏ 158, CHM 1321 iKEï BEF 47,1,158: 
KEr 156,CHRtl224liKEY DEF 9,1,156 
10015 KEY 159,CHRtU91HCHRt(13)iK£: DEF 
4B, 1,159 

IO02O DEF FN f i*l=0:equt='0' 
10025 C!)ll=CHfilil5)tCH()lill:cp21-CHRfll5 



ordonnées 



IjFEN I 



129 

10035 «*32Oiiv=224!iin>i=30!uny=3O 
10040 s=0:RESTDRE 10050iFOR f =129 TO 141 
iFDR g-1 TD 5:READ clg):5=5*cfgliNE<TiSÏ 
HBOL f, 0,0,0, clll,cl2),c(!l ,cl41,c(5)iNE 
ÏTrlF s<)7960 THEN PRINT'Erreurlsl dans 
Il ligne 10O5O'|CHRtl7}:ENE) 
10045 s=0:F0R f»l TD 17:LDCATE f+12,25:R 
m liPRINT CHR((i):s=sii:NEITiIF sOlBG 
3 THEN PRINT'Erreurlsl dms 11 ligne 100 
55';CH(ÎII7):END 

10050 DATA 192,192,192,193,125, 31,48,45 
,176,159, 60,98,124,98,98, 120,197,197,1 
97,120, 240,134,136,152,252, 123,51,51,1 
79,97, 45,45,45,45,204, 134,134,134,134, 
243, 15,24,30,24,207, 120,48,48,48,48, 9 
4,210,94,66,94, 247,148,247,144,247, 128 
,0,128, 126, I2B 

10055 BATA 129,130,131,132,133,32,32,134 
,135,136,137,138,32,32,139,140,141 
10060 PLOT 150,0:DRAH 0,0iDBM 0,50iDRAN ' 
639,50tDRM 639,0:DRAH 470,0 
10065 NJNDDIi 10,2,39,23,24 
10070 0RI6IN 320,224,0,639,399,52 
10075 PLDT 0,0,1:ORANR 640-n,0:BRAKR -6 
40,0:PLDT O,0iDR,1liR 0,400-ayiDRANR 0,-40 
0:PL0T 0,0: DRAW unx,0,2:PLDT 0,0:DRAHR 
0,unyiHDVE 0,0,1 
10080 RETURN 
11000 REH L.H. copieur 
11005 NEHDRI 19FFF 

11010 RESTORE 11020is-0:FOR t'IAOOO TO ï 
A0B9iREAD aiPOKE (,i!S=S+aiNEÏT![F s(J16 
430 THEN FHINT'Erreun.s! dans les lignes 
11020-1 1015- iCHRt 17) lENO 
11015 RETURN 

11020 DATA 17,0,0,33,93,1,6,26,197,62,27 
,205,115,160,62,49,205,115,160,62,27,205 
,115,160,62,75,205,115,160,62,64,205,115 
,160,62,1,205,115,160,229,1,0,7,197,213, 
229,205,240,187,225,209,193,254,1,32,2 
11025 DATA 203,241,58,57,160,214,8,50,57 
,160,43,43,16,229,121,205,115,160,62,241 
,50,57,160,225,19,19,122,254,2,32,208,12 
3,254,128,32,203 

11030 DATA 62,10,205,115,160,62,13,205,1 
15,160,193,17,14,0,175,237,62,17,0,0,16, 
150,201 

11035 DATA 205,46;iB9,56,251,205,43,189, 
203,9,187,254,191,192,49,248,191,62,255, 
50,160,160,201 
12000 REH lessige d'entrée 
12005 iessagei:":REST0RE 12020:F0R M 
TD 57:REAB al: If rt-"#" THEN RËAD aines 
sagef=iessigel+cp2f+iMcplf!60TD 12015 
12010 lessigef^tessigetMl 
12015 NEXTi RETURN 

12020 DATA i,E,q,u,i,t,i,a,n,' V,C,o 
,u,r,b,e,' ',.,[,1,1,0,1,1,' ",*,* 
.x.e.s, 1 V,T,r,a,i,t,e,r,' ',e,c,r,i 
,n,' ■,»,«, i.p.ï.r.ï.r," ",*,F, 



63010 IF ERR-2 THEN CLSîPRINT'L'equltion 
de la courbe est incorrecte': RESUHE 205 
65015 «ESUHE KEXT 



Éducdùik 



ETATS 
UNIS 



Vincent PERNICE 



Etats-Unis vous propose un 
voyage allez-retour presque 
gratuit pour un pays de rêve. 
Tapez et sauvez le chargeur, 
puis le programme principal. 
Après quelques secondes 
de patience, une carte muet- 
te apparaîtra. 

Ensuite, grâce à un jeu de 
questions-réponses, vous 



aurez la satisfaction d'appren- 
dre que Pierre est la capitale 
du Dakota du Sud et que le 
Texas compte plus de 11 mil- 
lions d'habitants. 

Sauvez le premier programme par 
SAVE "USA" et le second par 
SAVE "EU" immédiatement à la 
suite du premier. 




1 REH ♦ 

2 m » ETATS UNIS » 

3 REfl » Pernice Vincent* 

4 REfl » rinveibre 86 » 

5 REM mmimimim 

6 REM i CHARGEUR * 

7 R£» H4**mWIH4ftM 

10 MODE liINK 0,9iINK 1,1:1NK 2,20: IHK 3 

,19:B0RDER 22 

20 k=IZOi[ioit=-ETflrS UNIS":G0SUB 3000 

30 k=240;no«*=-d'flHERieUE*:6DSUB 1000 

50 L0CATE 14,16:PAPER liPEN 3jPRINT 'Pre 

sente par":PAPER 

«0 k-100inoit>"PERNI[E Vincent "iSOSUB 30 

00 

70 SCSUB 10000 

74 REH LES POSSESSEURS DE 444 DU DE 6125 
DOIVENT SUPPRIMER LE REH DE LA LIGNE 75 

75 REM POKE t9A5D,l9?iP0K£ 49A5E,lB6iP0K 
E tYA61,197:PGKE t9A62 T tB6:PDKE fr9fl94,fc3 
E:P0KE 19A?5,U6 

Su 6D5UB 20000 
90 !SCRA,0,39,0,3,4,I52 
100 !5CRA, 0,39,22, 25, 4, 152 ■ 
110 !SCRA,0,3,4,22,19,152!!5CRA,34,3Mi 
22,19,152 

120 PLOT B3,332iDRA*R *74,fl,i!fflffHi 0,-1 
34,liDRAUR -4?4,0.I:DRABR 0,134 
130 PLOT 156,324, hDRAKR 327 ,0, 1 : DRAHR 
,-116,lrDRftNR -327,0, 1:DRAHR fl,Ui,l 
140 PLOT 120,260,3:CALL 19A50.I 
150 PLOT 194,l75,l:DRAyR 21B,0,liDRAHR 
,-5û,liDRAKR -218.0, liDRANR 0,50,1 
160 PLDT 293,171,3:CAIL 19A50.1 
170 PLDI iî,117,l!llRslR 506,0, liDRAIIR 0, 
-65,liDRAHR -504,0, lilRSIR 0,65,1 
1S0 PLOT 7B,102,liDRAKR 4B5,0,l!DRANR 0, 
-34,liDRAHR -4B5,0,liDRAKR 0,34,1 
190 PLOT 305.10B, 3:CALL 19A50,1 
200 LDCATE 11,24:PEN 2:PR1NT 'CHARGEMENT 
EN COURS..." 
210 BDRDER 21 ,25:5PEED INK 5,10îRUN 'lia 

3000 chars=LENIn»fl:pl«el5=cl)ar;<B:i:(6 
3î-charst32)/2iL0CATE 1,1: PEN 3:PRINT no 

itjiPEN 3itx=<iy=k!ï2=3ÎS!FDR f=l T0 8:. 

2=0iFDR n=l TD pixels: ÏF TESTI»2,y2)-3 T 

HEN PLOT «,y,2iPLDT i,y-ï 

3010 PLOT x+2,y:PL0T <+2,y-2:<=«M:*2=);2 

t2:NEIT 5:y=v-4iy2-y2-2!x=ti:«EïT fiLDCA 

TE l,lrPRINT SPACEIIchirshRETURN 

10000 HEHDRÏ 19A4F|F0R F=0 T0 257:REflD A 

10010 PDfcE l9A50*F,VAL("t'tLEFTtlAJ,2]): 
NEÏT F 

10030 ' codes de la routine 



10050 ' 

10060 DATA crJ,ll,bi:,32,54,9b,d[l,7e,00,32 

,2b,9b,2a,2e,b3,eil,5b,2c,b3,c(l,23,9b,32 > 

2B,9b l diJ,21,52,9b 1 af 

10070 DATA 32,53,9B,CD,30,9B,CB,2tl,CB,25 

,CD,23,9B,2B,0B,CD,30,îti,7A,FE,FF,20,F3, 

CD,41,9B,AF,32,52,9B,E5,D5,CD,EA,BB,D1,E 

l,3A,f4,B4 

10ÛBO DATA E6 I BO,20 I 7F,7C,B5,2B,30,1)5,E5 

,2B,2B,CD,F0,BB,E1,D1,CD,2A,9B,20,04,DD, 

CB,00,B6,1S,13 

10090 DATA DD, CB, M, <6, 20,00, 0UB, 00,06 



,D5,2a,2fl,£5,23 1 23,J)lJ,34 1 Ol,7C 1 3D,20 t 05, 

7d,fe,8e,:b,;7,i5,e:,2j,:3 

IC'IC'O DATA CD,FO,BB.EI ,D1 .CD,2a,?Ej,:o,Ot 

,DD,CB,0Û,BE,18,13,DD,CB,OO,7E,20,OD,D0, 

CB,00,FE,D5,23,23,E5,2B,2B,DD,34,01,CD,4 

1,96 

10110 DATA 7A,FE,02,2O,05,7B,FE,BO,30,O5 

,CD,23,?B,20,85,DD,7E,0J ,fl7,CO,El ,D1 ,DD, 

3S,0J ,CD l ZX,9î,2EI T Fl,C3 f 79 T ?A,QD,7E,0i ,A 

7,L"8,EI,EI,30,IB,FA,D:,E5,[D,F0,BB,E1,D1 

,FE,Q0,CB 

10120 DATA FE,OO,C9,3A,54,9B,FE,02,2B,O8. 

,FE,01,2B,03,CD,3E,9B,16,1B,C9,3A,51,9B. 

FE,02,!B,OB,FE,01,:B,03 1 CD 1 4F,9B,13,13,C 

9 

10130 RETURN 

20000 'H*l déroule écran 

20010 MEMORY 19FFF 

20020 RESTORE 200BO:FOR a=40940 10 «017 

20030 READ btiPCKE i,VALI'li'+b*l 

20040 v=VflL I "fc*.+b*) s POKE a,v!s=s+v 

20050 MEïT i 

20060 IF iOÎÏB THEN PRINT "erreur data 

■:S10P 

20070 CALL IAOO0 

200BO DATA 01,09,aQ,21,la,aO,cd,dl 

20090 DATA bc,[l,aO,c3,lc.,aO,c3,2b 

20100 DATA 30,53,43,52,14,53,13,52 

20110 DATA cl,00,O4,fe,06,cO,dd,46 

20120 DATA 02,c5,Oi,0O,cd,3b,e0,cl' 

20130 BATA 10,f7,c9,fe,06,c0,dd,46 

20140 DATA 02 t c5 , 06,01 ,cd ,3h f aO, ci 

20150 DATA 10,f7,c9,dd,7e,00,dil,5e 

20160 DATA 04,dd,4e,06,dd,56,0B,dd 

20170 DATA 64,01, cd^b:^ 

20180 RETURN 




nois ainsi que la superficie et la popul 

ition de l'état.' 

90 L 0CATE I0,24:PR1NT 'Appuyer sur une 

Duché ■iCALL-4BB04 

100 ISCRA, 0,39, 0,24, 25, 232inQ0E 1 

110 LOCATE l.iiPEN 3:PRINT ■ 2- Jouer i 

donnant a chique état son no». ' 
115 PEN liPRINT * Un état est tire au i 
rt et vous devez donner son noi (il voi 

est indique sa capitale pour vous lil 



rVWVvl 



5 HOUE 1 : 1NK 0,1:1»» 1,24:1NK 2,26:INK 3 

,6: BORDER 4 

10 ISCRA, 0,39, 0,24, 25, 122 
15 «ODE IrLDCATE. 10,2iPRINT "ETATS UNIS' 
20 LOCATE 10;3:PR1NT 'minuit' 
30 LOCATE l,5:PEN 2:PRINT ' Ce logiciel 
éducatif vous penettra de vous apprendr 
e la géographie des ETATS UNIS' en un j 
eu de questions-réponses. ' 
40 PRINTiPRINT 

50 PEN liPRINT ' Trois possibilités vous 
sont offertes au ienu:' 
60 PEN 3iPRlNT ' 1- Apprendre a connaitr 
i les itati et leuri villes.' 
70 PEN liPRINT ' A tour de rote ctiaque e 
tat se colorie et s'inscrivent sa capit 
aie (en range), sa ville principale (gro 
s point noiri.etsa ville secondaire (pet 
it point noir).' 
B0 PRINT ' Dans la fenêtre du bas leurs 



120 PRINT 'Au bout de 20 essais votre se 

ore ainsi que votre taui de connaissanc 

e vous est donne." 

125 PRINTtPRINT 

130 PEN 3:PRINT ' 3- Jouer en donnant a 

chaque état sa capitale:' 

135 PEN 1:PR1NT ' New principe que prec 

ede»ient Mis ici avec les capitales." 

140 LOCATE I6,24:PRINT 'appuyer sur une 

touche.' 

115 CALL iBB06 

150 iscra, o.:?.;, ri,;;, iiiieot: 6û; 

200 PLUT 4?,322,C:S:EJ3 Z53iRETURNi MASH 
INBT0N 

201 PLOT 4?,:5à,C:=:SU3 ;5î:P"URs ORtEQ 
N 

202 PLOT 2 l! ,714,CiE0SUB 2WiMTlBNi CSLl 
FORME 

203 PLOT B3.2:4,::503v.E 233iRETIJINi 'VEVA 
0A 

204 PLOT 10[ ( 17B,Ce6aSUB 2!?:P"URS: ARI 
ZONA 

205 PLOT 119,21*,C!flCSUS îHiRÎTURNi'UTi! 
H 

204 PLOT lc;,2iê,C;E3SUB ÎKiRETliRNi'ICfl 
H0 

207 PLOT lZUCI.CiSOSiiE ïSJiSEI.ih: -ON 
TANA 

208 PLOT 155.2Ï0.C:60SLB 25JiBEMNi KYtl 
NINB 

209 PLOT l'3.l96,:;6C-.B BIlRETUMl COL 
0RAD0 

210 PLDT 173,140,C:5:SU3 rSJiRETURNiNEK 
NEIICD 

211 PLDT 2:?,l24,Ci=DSuB ïïïiAETufllIi 'El 
AS 

212 PLDT 2«:,liC,C;EDSuB 253iBETURHi M 
AH0HA 

213 PLOT 245,:î6.C:60SLE 253iiET.^N: rAN 
SAS 

2i4 PLDT 2;?,i!2,::E0S-E 253:GET.fiM; <Hi 
RASKA 

215 PLOT 227,i43.:iB03-E îîïiRETURMi DAK 
DTA SUD 

216 PLOT 22-,304,C:S:;J3 2S3!RC*URS: 3AK 
0TA NDRD 

217 PLDT 2t:.2S»,C:S3SUB MîiRETURNi "IN 
NES0TA 

218 PLOT ZBl.ïSO.CiBDSUB 253:RET.RN: ION 

219 PLOT 2BI.Î14.::603:B 253iRE'URNi BIS 
SDUR1 

220 PLOT «4,160, C18GBUÎ 2!3iRETURNi ARK 
ANSAS 

221 PLDT 2;i,i:=,C:=0SuB Ï33ji «TUfiS: .DU 
IS1ANE 

222 PLDT 320,lï4,Ci6DSUJJ 253rRETJRN) ■ItS 
51SSIP1 

223 PLOT 344,131,C:60SUB 253:RETURN:'ALA 



BAHA 



S,147,CiBDSUB 253iRETURN: 'BEO 



225 PLOT 411,95,C:BDBUB 253iRETURN: FLOR 
IDE 

226 PLOT 411,140,CiSDSUB 253;RETURN: 'CAR 
OL1NE SUD 

227 PLDT 4I1,186,C:60SUB 253;REMNi'CAR 
DLINE NORD 

228 PLOT 333,173,CiBDSUB 253iRETURN! TEN 
NESBEE 

229 PLDT 346,199,C!6DSUB 253iRETURNi 'KEN 
TUCKY 

230 PLOT 411,212,CiCALL 19A50,! 

231 PLOT 435,220,C:G0SUB 2ï3iRETURNi 'VIR 
E1NIE 

232 PLDT 7I,90,C:60SUB 253iRETURNl 'AlASK 
A 

233 PLOT 452,276,C:BDSUB 253;RETURNi'CON 
NECT1CUT 

234 PLDT 430,232,CiGOSUB 253:RETURNi 'DEL 
AMARE 

235 PLDT 313,50,C:CALL 19A50,1:PL0T 2B5, 
62,C:BBSUB 253:RETURNi'HAHAl 

236 PLDT 313,21?,C:EDSUB 253:RETURN; 'ILL 
1NQI5 

237 PLDT 339,232,C!B0SUB 253:RETURN: JND 
IANA 

23B PLOT 444,320,C:B0SUB 25i:RETURN: Hfll 



239 PLDT 418,232,C!60SUB 253:RETURN: 'HAR 
VLAND 

240 PLOT 452,28S,C:CALL 19A50,1:PL0T 444 
,280:B05UB 253iRETURN: 'NA5SACHUSSETS 
211 PLOT 339,271,C:CALL 19A50,1 

242 PLOT 324,305,CiG0SUB 253:RETURNr 'NIC 
HIEAN 

243 PLDT 452,302,CiGDSUB 253iRETURN: 'NEN 

HAMPSHIHE 

244 PLOT 437,251,CiBD5UB 25Î!RETURNi 'NEN 
JERSEY 

245 PLOT 410,272,CiSDSUB 253ifiETURN: 'NEN 
YORK 

246 PLDT 361,230,C:80SUB 253:RETURNi'0HI 


247 PLDT 4IB,251,Ci605UB 253:RETLlRHi PEN 
N5YLVANIE 

248 PLOT 462,276,CiSDSUB 253: RETURN: 'RHO 
DE ISLAM 

219 PLOT 440,302,0: 60SUB 253iRETURN: W£R 
NDNT 

250 PLDT 386,215,C:60SUB 253! RETURNs ' VIR 
SINIE OCCIDENTALE 

251 PLDT 301,2B5,C:S0SU6 253iRETURN: H1S 
COUSIN 

252 PLOT 4l4,227,CiSDSUB 253iRETURN:'D D 
F COLUNBIA 

253 CALL &9A50.1: RETURN 

300 DATA yASHINBTON.OLYHPI A, SEATTLE, 5P0K 
ANE, 174.417, 3. 409.000,44, 321, 50,326,82,3 
21 

301 DATA DREBDN,5ALEH,PDRTLAND,EU6ENE,25 
1.180,2.091. 000, 35, 295, 40, 297,33,285 

302 DATA CALIFORNIE, SACRAHENTD.LOS ANBEL 
ES, SAN FRANCISCD,41I.OOO,20.448.000,30,2 
29,49,144,24,212 

303 DATA NEVADA, CAR50N-CITY, LAS VEGAS, RE 
NO, 234.297,189.000,48,221,78,184, 47, 224 

304 DATA ARIZONA, PHDENI«,TUCSO«,PRESCOTT 
,295.022,1.772.000,103,144,116,132,105,1 



305 DATA UTflH,SflLT LAKE CITY.PROVD.OGDEN 
,219.932,1.059.000,1)6,226,120,222,117,2 

Je 

306 DATA 1DAHO, 301 SE .LE HI 3ï ON h 7W î N FALLS 
,216.412,713.000,91,249,90,300,98,259 

307 DATA rlDNTANA.HELENA, GREAT FALLS, BILi 
INES, 381. 0B4, 694. OOQ, 123,300,140,304, 152 
,290 

30B DATA HY0HIN6,CHE(ENNE,SHERIDAN,CASPE 
(1,253.597,322.000,179,234,165,270,169,25 
2 

309 DATA COLORADO, DENVÉR,C0LORADO-5PRIN6 
5, PUEBLO, 270, 000, 2. 357. 000, 178, 216, 182, 2 
10,184,201 

310 DATA NOUVEAU MEXIQUE, SANTA FE , flLBUOU 
ER0UE,L05 ALANÛS, 315. 000,1. 016. 000, 171,1 
49,142,159,143,173 

311 DATA TEKAS.AU5T1N, HOUSTON, DALLAS, 492 
.403,11.197.000,230,108,262,90,244,129 

312 DATA 0KLAHQMA,OKLAHOHA-CITY,TULSA,LA 
KTDN, 295. 022, 1.772. 000, 246, 146, 258, 173, ! 
37,141 

313 DATA KANSAS , TOPEKfl , KflNSAS-C I T V , H I CH I 
TA,2I3. 063, 2. 249. 000, 256, 205, 264, 205.24B 
,193 

314 DATA NEBAA5KA, LINCOLN, OHAHA ,FFtEttDNT, 
200.017,1.184.000,246,226,254,232,247,23 
7 

315 DATA DAKOTA DU SUD, PIERRE, S10UJ-FALL 
S,RAP1D CITY, 199.551,666.000,221,271,249 
,262,199,266 

316 DATA DAKOTA DU HORD.BISMARCK ,FARGO, B 
RAND F0RKS,1B3.022,61B. 000,212, 300, 242, 3 
03,241,313 

317 DATA HINNESOTA, ST FALL,DULUTH,N1NNEA 
POLIS, 217.735, 3. 805. 000, 274, 280,290, 311, 
274,274 

318 DATA IOHA.MS NO INE5.DAVENP0RT, HATER 
LDO, 145. 790, 2. 825.000,275, 243,298, 244, 28 
7,253 

319 DATA MISSOURI, JEFFERSDN-CITY.ST LOUI 
S,KANSAS ClTï, 180.454, 4. 477. 000, 284, 203, 
299,205,272,205 

320 DATA ARKANSAS.LITTLÊ ROCK, FORT SMITH 
, FAYETTEV ] LLE , 137. 539 , 1 923. 000 , 290 , 1 61 , 2 
79,163,279,170 

321 DATA LOUISIANE, BATON ROUEE, NEH DRLEA 
N5,SHREVEP0RT, 125. 474, 3.443. 000, 309, 106, 
320, 102, 2B5, 129 

322 DATA M] SSI5S1PI , JACKSON ,S1 LOX ï , «ÊfllE 
IAN, 123.584, 2. 217, 000, 314, 132, 327, 114, 32 
4,134 

323 DATA ALABANA.HONTBOHERY, BIRMINGHAM, M 
0B1LE, 133. 667, 3. 444. 000,352, 139,345, 151, 
338,118 

324 DATA GEORGIE, ATLANTA, KACDN,COLUHBUS, 
152.488,4.590.000,377,155,385,149,373,14 
2 

325 DATA FLORIDE, TALLAHASSEE, MIAMI, TANPA 
,151. 470, 4. 7B9. 000, 381, 120, 433, 75, 407, 93 

326 DATA CAROLINE DU 5UD,CDLJHBIA,EREENV 
ILLE.CHABLESTON, BO. 432, 2. 665.000, 407, 147 
,394,171,415,155 

327 DATA CAROLINE DU NORD,RALEIGh\CBARL0 
TTE,GREENSBDRO, 134. 197,5.214.000,412, 1BB 
,394, 1B3, 400, 192 

328 DATA TENNESSEE, NASHVILLE,fOPHIS,CHA 
TTAN006A, 109. 412, 3. 924.000, 345, 1B0, 311,1 
69,356,172 



329 DATA IfENTUCKY .FRflNPtFDRT ,LDUISVILLE, L 
EÏIN6TDN, 104. 423,3. 163. 000,332,203,348, 2 
06,356,202 

330 DATA VIRGINIE , RI CHNOND, NORFOLK, ROAND 
KE, 105.714, 4, 648. 000, 414, 208, 427, 206, 402 
,205 

331 DATA ALASKA, JUN£AU,ANCH ORAGE, FAI BANK 
8,1.520.000,352.000,113,55,75,71,79,88 

332 DATA CONNECTAT, HARTFORD, NEH HAVEN, 
NATERÎURY, 12. 973, 3. 082. 000,448,276,445, 2 
72,454,278 

333 DATA DELAHARE, DOVER, HILNINGTON, 1 ',5 
328,546.000,429,234,431,231,0,0 

334 DATA NAMAI,HONOLULU,HAHI,HILO,16.600 
,770,000,285,58,304,61,320,50 

335 DATA ILLINOIS, SPR1N6F1ELD, CHICAGO, PE 
ORIA, 144.075, 11. 114.000,308,221,312,244, 
304,232 

336 DATA INDIANA, INOIANAPOLIS.FORT-NAYNE 
,EVANSV1LLE,94,000,5.194.000,335,227,340 
,240,331,207 

337 DATA NAINE, AU6U5TA,PORTLAND,LEH1SÎON 
,B6. 027, 965. 000, 466, 309, 460, 298, 462, 304 
33B DATA NARÏLAND,ANNAPOLIS,BALTIN0RE,HA 
SERSTDNN, 27. 394,3. 922.000,419,220,426,22 
7,402,230 

339 DATA flflSSACHUSSETTS, BOSTON, WREE5TEB 
,SPRIN6FIELD, 21. 385, 5.689.000,456,285, 45 
0,286,445,262 

340 DATA NICHIEAN,LANSING, DETROIT, FLINT, 
150.760,8.873.000,345,263,356,258,352,26 
6 

341 DATA NEH HANPBHIRE^QNCORO.HANCHESTE 
R, BERLIN, 24. 097, 738.000,451, 300, 452, 297, 
452,306 

342 DATA NEH JERSEY,TRENTON,JERSEY-CITY, 
CANDEN, 20. 295, 7. 166.000,434,244,437,253, 
436,238 

343 DATA NEH YORK, ALBANY, NEH YORK.BUFFAL 
0,126.400,18.237.000,435,278,445,259,400 
,266 

344 DATA 0HI0,C0LUKBU5 T CLEYELAND,C1NCINN 
ATI, 104. 765, 10.453. 000, 340, 232, 368, 242, 3 
54,220 

345 DATA PENN5YLVANIE,NARRISBURG,PHILADE 
LPHIE,PITT5BUR6H, 117.412, 11. 794. 000, 409, 
242,425,242,391,240 

346 DATA RHDDE ISLAND, PROVIDENCE, NEHPORT 
,HARHICK, 3144, 950.000, 0,0, 0,0, 462, 276 

347 DATA V£RHONT,HONTPELIER,RUTLAND,NEHP 
ORT, 24, 887, 145. 000, 443, 308,443, 296, 443,3 

346 DATA VIR6INIE OCCIDENTALE, CHARLESTON 

,HUNTINGTON,HEELING, 62. 629,1. 744.000, 3B2 

,213,377,208,385,220 

349 DATA HISC0N5IN,HA0ISDN,h'ILNAUKEE,APP 

LETDN, 145.384, 4.418.000, 307, 245, 317, 270, 

311,280 

3Î0 DATA DISTRICT OF CQLUflBl A, HASHINBTDN 

,■ y ",174,748.000,0,0,0,0,414,227 

151 RETUAN 

600 » tsssage d'attente 

610 MODE 1:1NK 1,24:REN 1:1NK 0,0:LOCATE 

2,22iPRINT "VEUILLEZ PATIENTER QUELQUES 

SECONDES !" 

620 LOCATE 12,24iPRINT 'CHARGEMENT de L' 
ECRAN. .'iFDR i=l TO 200D:NEXTi 1NK 1,24,2 
6iF0R i=l TO 1000:NE1T 
630 INK 1,0 
999 ••••• écran carte titre 1 



1000 NODE 1:0RI6IN 0,40ilNK 0,0: INK I 

INK 2,0! INK 3,OiB0RDER 1 

1010 HINDOH (1,2,39,22,25jU1ND0N 12,32,3 

9,2,12:H1NB0H 13,32,39,14,20 

1020 PEN il,3:PAPER ll,2iPEN t2,2iPAPEfi 

t2,3iPAPER I3,0:PEN 13,1 

1030 CLS tliCLS I2iCLS (3 

1035 SYMBOL 250,0,0,56,56,56,0,0,0 

1040 DIH Ett511,Ctl5!l,Vl*!Sll,V2t!51! l S 

fl51>,Ptl51),ETH5!),AI(511,A2l51l,Bl(51 

1,62 (511, Cl(5l),C2 (311, VCI (511, C0UPI20I 

1045 RESTDRE 1650 

1050 PLOT 42,350iFDR i*l TO IUREAD a,b; 

DRAMR a.b,!:NEÏT: 'Washington 

1060 PLOT 30.313:FOfi t«I TO TiREAD a,b:D 

RAHR a,b,i:NE<l:'oregon 

1070 PLOT 14,269,1:FDR i'1 TO 20:READ 1, 

biDRAHR a,b,l:NEIT: Californie 

1080 PLOT 90,335iF0R i=l TO 13iREAD 1,1)1 

DRAMR a,b:HEU: 'idaho 

1090 PLOT 99,333, liFOR i'1 TO 3:READ a,b 

:DRANR a.b.liNEITi'iontana 

1100 PLOT 1BB,277:F0R fsl TD 3:READ a,bi 

DRAHR i,b,l:«EïT:'Hïo*ir,g 

1110 PLOT 101,251:F0R i=l TO 3iREAD a.bi 

DRAHR a, b.liNEIT: 'Nevada 

1120 PLOT 91,I93jF0R i'1 TO 2:READ i,oiS 

RAHR a,b,l:NEIT:'Ut3h 

1130 PLOT 77,140tF0R i=l TO 4:HEAD a,biD 

RAHR a,b,l:NEïT:'Arizom 

1140 PLOT 133,120iF0R i'1 TO 7:READ a,b: 

DRAHR a, b,l:NEÏTi 'Nouveau Mexique 

1150 PLOT 1SB,230,I:FOR i=l TO 3iREAD a, 

biDRAHR a,b,1:HEXT: 'CoUraùa 

1160 PLOT 154,122:F0« i=l TO 20iREAD a,b 

iDRAHR i,b,liNEIT i'TEIAS 

1170 PLOT 203,162iF0R i-I TD 2iREAD i,bi 

DRAHR a.b.UNEITi'Okliboia 

1180 PLOT 271,183iF0R M TO 4:READ s,b: 

DRAHR a,b,liNEIT:'kif)sai 

1190 PLOT 267,217iF0R !■! TO IOiREAD i,b 

iDRAHR i,b,l:NEUi'nebra5hi 

1200 PLOT 255,249iF0R i'1 TD 3:READ i,b! 

DRAHR i,b,l:NEÏT l'Dakot» du sud 

1210 PLOT 251,269:F0R i'1 TO 2iREAD l,bl 

DRAHR i,b,l:NEïT: 'Dakota du nord 

1220 PLOT 245,323iF0R i=l TO IOiREAD i,b 

:DRAHR i,b,l:NE!T:' Minnesots 

1230 PLOT 293,262iF0R i"l TO 9iREAD a.b: 

DRAHR a,b,l:NEJT:'ioM 

1240 PLOT 292,229iF0R 1=1 TD 17iREAD a,b 

:DRAHR a,b,I:NEn:'hmaiiri 

1250 PLOT 310,176:FDR M TD 5iREAD a,b! 

DRAHR a,b,l:NEIT;'Arkansas 

1260 PLOT 281,96:FDR i«l TO 18:READ a,bi 

DRAHR a, b.liNEJTi 'Louisiane 

1270 PLOT 321,110iFDR i'1 TD 3iREAD s.bt 

DRAHR a,b,l!NEIT l'HISSISSIPI 

1280 PLOT 334,110iFOR i'1 TO 9iREAD l,g| 

DRAHR a,b,l:'NEÏÏ;'A!aïl»a 

1290 PLOT 352,112:FDR i>l TO 16:REAB a,b 

:DRAHR a, b,l:NEIT: 'FLORIDE 

1300 PLOT 361.16B:F0R i'1 TD 81READ a,bi 

DRAHR a,b,liNEn:'Eeoroie 

1310 PLOT 3G5,171:FDR i'1 TO 6tREAD i,b: 

DRAHR a.b.liNEKTi 'Caroline du sud 

1320 PLOT 313,183;F0R 1*1 TO 4:REflD a,bi 

DRAHR a T b,l:NE!Ti 'Tennessee 

1330 PLOT 383,195iFDR i'1 TO 9iREAD a,bl 

DRAHR a, b.liNEIT: 'Caroline du nord 



1340 PLOT 313,193:™ i«] 10 ItRÎM) a,b: 

DRAHR i,b,l:NEÏT:'illinnis 

1350 PLOT 324,200:™ 1=1 TO 12iREA0 a.b 

;DPA»fi a h b.l:NEIl;«£NïlOÏ 

1360 PLOT 377,201:FDR 1=1 TO 13iREAD i,b 

:DRAHR a.b.liNEIT r'VIRBINIE 

1370 PLOT 321,246iFDR i<l TO 4:REA0 i,b: 

CRANS a, b,l:NEIT: 'INDIANA 

13B0 PLOT 371,209iF0R 1»1 TD lliREAD i,b 

:DRAMR a,b,liNElT: J DHID 

1390 PLOT 3B5,230:FOR l«l TO 4:READ a,b: 

DRANR i.bjiiNIITi'ylrjinil occi dental i 

1400 PLOT 394,233iF0R 1=1 TO SiREAD i,bi 

DRAW a.b.liNEIT: 'MARÏLAND 

1410 PLOT 428,224:F0R M TD 3:READ a,b: 

DRANR a.b.lîNEKTi VIR61NIE (CDNPLEMENT 

1420 PLOT 426,237:F0« 1*1 TD 3iREAD >,bi 

DRANR a.b.liNElTi'DeUur" 

1430 PLOT 317,253iF0R M TO lOiREAD a,b 

:DRAHR i,b:NElT:'HSCONSIN 

1440 PLOT 308,307:FOR i«l TO 13:READ a,b 

:DRAUR i,biNEtT:'NlCHlGAN 1 

1450 PLOT 32B,248;F0R i=l TD 12:READ i,b 

:DRANR a,biNEIT:'HICH[6AN 2 

1460 PLOT 377,255:F0R 1=1 TO 9iREAD a, S: 

DRANR ),biNEiTi 'PENNSYLVANIE 

1470 PLOT 435,235:F0R 1=1 TD 4iREAD a, il 

DRAHR a,b:NEXTi NEH JERSEY 

1460 PLOT 443,255:F0R 1=1 TO 14iREAD a,b 

: DRANR ï.biNEÏT: 'ne» york 

1490 PLOT 440,ZB5:FPR i«| TO 5:REA0 a,b: 

DRAHR i.tuNEIÎi'venont 

1500 PLOT 447,2B9iFDR (M TD 4iREAC i,bi 

DRAHR i,b:NEXT:'NEH HAHPSHIRE 

1510 PLDT 45Z,3ie:FDR [-1 TO 14:READ a,b 

; DRANR a.biNElTi 'HAINE 

1520 PLDT 441,276:F0R i-l TO BiREAD 1,6: 

DRAHR a.bïNEÏT: 'NASSACHUSSETS 

1530 PLOT 447,263:™ i-l TO 3:R£AD i,bi 

DRAHR i,t>!NEXT!'CONNECT!CUT 

1540 PLOT 459,272:F0R 1-1 TO 2:READ i,bi 

DRANR a.biNEÏTi'RHGDE 15LAND 

1550 PLOT 36,52:F0R 1-1 TD 3B:READ i,b:D 

RANR i,b: NEÏTr 'ALASKA 

1560 PLOT 303,64:F0R i-1 TD 14:READ a,b: 

ORAHR i,b:NEIT :PLOT 262,67:FDR 1-1 TO 4 

iREAD A,6iDRAHR A,8:NEIT: 'HAHA! 

1570 PLOT 411.229. FOR 1=1 TD 2:READ A,8: 

DRAHR A, BiNEIT] ■DISTRICT OF C0LUNB1A 

1580 PLOT 360,253iFDR 1=1 TO SrREAD i,bi 

DRAHR a,b,i:NEIT:'LAC ERIE 

1590 PLOT 300,316:FOR 1=1 TO 17:READ i,b 

: DRANR i,b,liNElTi 'LAC8 5 U PERI EUR -HUM N- 

N1CHIBAN 

1600 PLDT 395,275:F0R i-1 TO 4:READ i,bi 

DRAHR a,b,l:NBT:'LAC ONTARIO 

1410 PLOT 42,355iDRANR 0,-5:PL0T 54,142: 

DRAHR 4,-llîPLDT 247,4S:DRAHR -1,-lOiDRA 

HR -5,-lliPLOT 4B1,332:DRANR 10,0:PLOT 9 

5,107:DRAHR 13,-5:DRAHR 0,7iPL0T 122,30: 

DRANR 0,-3: 'FRONTIERES 

1420 PLOT 4,354:DRAHR 0,-328, 1:DRAHR 486 

,0,1:DRANR 0,328,1:DRAHR -464,0 , 1 : PLOT 5 

,130:DRAHR 74,0,l:DRAHfi 42,-32,l:DRAHR 

,-72,l:PL0T 270,26:DRAHR 0,50,1:DRAHR 70 

,0,1:DRAHR 0,-50, liPLOT 275,26:I)RAHR 0,4 

4,1:DRANR 42,0,I:DRAHR 0,-44,1 

1430 PLOT 5,124:DRAHR 70,0,1:0RAHR 41,-3 

0,1:DRANS 0,-47,1 



1440 'Mshingtni 

1450 DATA 0,-2,4,0,0,-4,0,-10,-14,6,0,-2 

4,4,0,4,-12,42,0,4,34,-44,5 

1440 'oregon 

1670 DATA -14,-30,0,-14,40,-14,4,22,-2,4 



,3,10,- 



,ie 



1650 'Californie 

1490 DATA 0, -4, -4, -10, 2, -20, 4, -14, B, 0,-4 

,-4,0,-4,4,-4,-2,-4,4,-24,12,-4,2,-4,4,0 

,0,-4,6,-4,4,-14,22,-2,8,20,-42,40,6,38 

1700 'ldahc 

1710 DATA 9,-2, -2, -12, 4, -4, 0,-4, 6, -B, -2, 

-12,4,0,4,-10,2,0,2,-4,12,4,-2,-34,-52,6 

1720 'inntana 

1730 DATA 92,-10,-2,-46,-40,2 

1740 'HYOMNS 

1750 DATA 0,-44,-60,4,-2,12 

1760 'Ne*ada 

1770 DATA -10,-46,-4,0,-4,-12 

1780 'Utah 

1790 DATA 50,-6,6,46 

1800 'Ariiona 

1B1D DATA 6,-4,30,-14,20,0,8,44 

IB20 'Nouveau Msuqus 

IB30 DATA 6,-2,2,4,14,0,0,2,34,0,4,60,-5 

4,2 

1640 'Colon*! 

1B50 DATA 14,-2,-2,-44,-6,-2 

1840 'TEÏAS 

1870 DATA 14,-14,4,-14,12,-4,4,10,4,0,6, 

-4,16,-24,0,-8,24,-10,-4,14,8,14,20,14,1 

0,2,0,24,-2,6,0,2,-4,14,-52,10,0,20,-26, 



1680 'oklahoia 

1B90 DATA 48,0,4,-40 

1900 Kansas 

1910 DATA -2,24,-2,4,0,2,-60,0 

1920 'Nebraska 

1930 DATA -4,8,0,4,-2,4,0,4, 



10,-4 



4,4,- 



1.1." 



1940 'limita du sud 

1950 DATA -4,40,-30,-3,-30,2 

1940 'Dakota du nord 

1970 DATA -4,34,-52,0 

I9B0 Minnesota 

1990 DATA 14, 0,20,-8,22, 0,-14, -IB, 0,-6, - 

4,-4,0,-8,12,-6,0,-6,-40,0 

2000 '10NA 

2010 DATA 2,-4,4,-4,1,-8,-4,-4,-4,0,0,-2 

,1,-2,-4,-4,-30,0 

2020 'Hissouri 

2030 DATA 2,-6,2,-1,2,-5,2,-2,4,-8,2,0,1 

,-5,4,-4,2,-4,0,-4,2,0,1,-1,-6,-4,0,-4,- 

4,0,0,4,-34,-7 

2040 'Arkanws 

2050 DATA -4,-6,0,-4,-2,-10,-4,-14,-22,- 

4 

2040 'Louisiane 

2Q70 DATA 2,2, 12, 0, 4, 2, B, -4, B, 0,4, 4, 8,-4 

,4,2,-4,4,0,4,-10,0,0,5,6,0,-4,6,-14,0,0 

,6,4,6,-6,6 

20BO 'HI5S151P1 

2090 DATA 12,1,-4,54,-22,-1 

2100 Alabaia 

2110 DATA 4,4,4,-2,6,1,-4,6,24,2,-1,10,0 

,6,-8,30,-30,-4 

2120 'FLORIDE 

2130 DATA 12,2,6,-1,1,-4,10,0,2,4,18,-12 

,4,-20,24,-20,6,0,2,16,-6,14,-18,34,0,4, 

-4,0,0,-2,-44,-6 



2140 'GEORGIE 

2150 DATA 24,2,2,-4,-4,2,2 

14,-12,2,-17 

2160 'Caroline du sud 

2170 DATA 10,6,8,3,4,-4,10,1,14, 

24 

2180 'TENNESSEE 

2190 DATA 70,12,-2,-8,-4,-2,-10 

2200 'Caroline du nord 

2210 DATA 54,10,6,-4,-4,-6,4,0,' 

2,4,-2,0,-4,-8,-10 

2220 'Illinois 

2230 DATA 6,0,2,4,2,0,-1,4,4,14 

22,-5,10,-16,-1 

2240 'KENTUCKY 

2250 DATA 4,0,4,-2,4,5,1,-1,4,0, 

,4,0,2,-3,12,1,10,-15,-4,-6 

2260 'VIRGINIE 

2270 DATA 0,2,10,2,10,14,1,0,4 

1,6,-4,5,-10,2,-3,9,0,1,-1,3,-8 

22B0 'indiana 

2290 DATA 6,1,2,2,14,2,6,-35 

2300 'DH10 

2310 DATA 4,4,0,6,4,0,0,4,4,2,0,12,-6,18 

, -10, -B, -10, 0,0, 4,-12,-1 

2320 'VIRGINIE OCCIDENTALE 

2330 DATA 1,-5,10,6,2,-4,12,2 

2340 'HARYLAND 

2350 DATA 30,3,4,-6,4,-1,-1,-4,-6,0,-4,5 

,-1,-13,-4,0 

2360 'VIRGINIE (cDipleient! 

2370 DATA 2,-8,4,0,4,6 

2360 'Délabre 

2390 DATA 4,4,5,-10,-2,-2 

2400 'N1SC0NSIN 

2410 DATA 4,18,2,4,2,6,-4,-2,4.12,-1,4,- 

18,10,-8,0,0,4,-3,0 

2420 'MCH16AN I 

2430 DATA 14,10,1,0,0,1,-2,-2,2,-1,4,-2, 

16,2,8,-6,-2,-2,-10,0,-4,-6,-4,2,-4,-4 

2440 'HICHIGAN 2 

2450 DATA 3,8,-4,14,3,12,8,12,12,-2,2,-1 

0,-2,-6,4,0,4,4,2,0,4,-10,-6,-14 

2460 'PENNSYLVANIE 

2470 DATA 10,4,4,0,8,4,20,2,8,-5,0,-12,4 

,0,-4,-6,-1,-2 

2460 'NEH JERSEY 

2490 DATA 6,-2,2,20,-2,4,-10,4 



Z50O ' 






2510 DATA 14, 8, -1,6, -9, -7, -4. 2, -6, 4B, -4, 

-2,-12,-14,3,-4,-3,-6,-10,0,-10,-5,0,-5, 

-4,-4,-5,-10 

2520 'VERflONT 

2530 DATA 7,4,-1,14,2,6,-1,10,-12,-4 

2540 'rien haipshire 

2550 DATA 12,6,-4,16,-3,3,-3,4 

2560 'HAINE 

2570 DATA 2,14,4,14, 10, 2,4, -2,0, -6,4, -10 

,6,0,-4,-4,4,-4,-10,-10,-1,1,-10,-12,-1, 

-10,-5,-1 

2560 'lassachussets 

2590 DATA 12,4,4,1,4,-4,4,2,0,1,-2,2,-4, 

-1,-4,12 

2600 'CONNECTICUT 

2610 DATA 0,4,12,4,0,5 

2620 'RHODE 1SLAND 

2630 DATA 6,0,0,6 

2640 'ALASKA 

2650 DATA 12,0,14,8,-2,5,10,6,-2,-14,10, 

5,26,-10,2,2,10,-12,6,-12,4,2,-10,25,-2, 



o 1 -i,t,-e,M.MiV*.*M!,Milr 

M.-VMtMMMrlVMi-Mi 

4,-6, 10, -2, 0,-4, -10, -2, -2, -4,1, -10, 4,0, - 
1,-8,-12,-1,0,-4,14,-4 

2iio : nmi 

2470 DATA *, 0,16,-*, 0,-6, 4, -4. 0,-4, -16,- 

4, -4, -8, -B,4, -4, 10, 4, 4, 0,4, -4, 0,0, 1,4, 2, 

10,-4,0,-10,-10,4,0,10 

2480 DISTRICT DF CDLUHBIA 

2490 DATA 7,2,1,-6 

2700 'LAC ER1E 

2710 DATA 4,0,10,14,4,0,4,4,4,0 

2720 'LACS SUPER IEUR-HURON-HICHIBAN 

2730 DATA 4, 4, 4,-2, 8, 4,3, -5, 2,4, 14,0, B, - 

6, 6, -I, 7, -10, 6, -1,14, -4, B, -8, 0,-5,-4,0,- 

6,4,-4,-24,-4,-4. 

2740 'LAC ONTARIO 

2750 DATA -4,1,12,12,4,0,8,6 

2760 PLDT 11,204,3:CALL 19A50,I;PLDT 479 

,14B,3:MLL L9A50,1:PLDT 2B0,60,3;CALL i 

9A50,1:PLDT 17,40,3iCALL 19A50.1 

2770 PLOT 140,34*,l:CflLL 19A50.1 

27B0 PLDT 152,64,I:CALL t9A50,liPL0T 128 

,84,1:CALL MASO,] 

2790 PLOT 340,3Ol,3iCALL 19A50,1:PLOT 37 

9,245,3iCALL fc9*50, UPLOT 412,2B8,3:CALL 

MAM.li'LWS 

2B0O P£N 2;L0CATE H, IiPRINT "JETAIS UNI 
5Ï':INK 0,4: IN* l,Oi!NK 2,26:INK 3,5 



3000 ' 



i XENU 



3010 BORDER liCLS !3iCLS I2iINK 2,26:L0C 
AIE I2,1,HPR1N1 IV 1 NENU I '| 

3020 LOCATE #2,1,3:PRIMT #2,"1-C0URS" 

3021 LOCATE I2,1,4iPRINT B," de GEO' 
3030 LOCATE lî.l.iiPWNT I2, , 2-ETAIS* 
3040 LOCATE t2 ) l,BiPRINT I2,'3-VILLES'| 

3050 iMINKEYtiIF at=" THEN 3050 

3051 IF it<T OR i$>"î" THEN 3050 

3052 IF A$*'C THEN BDTO 29000 

3070 ON VAL1AI) GOTO 4005,5005,20000 

4000 mm it)t (glosiiire) «tttu 

4005 BORDER B 

4010 CLS 11 

4015 CLS I2iL0CATE I2,2,1:PRINT 12,'ICÛU 

RSfiLOCATE I3,2,2iPR1NT lï, "ÏENTEHÏ":PR 

INT l3,"->î1ENU":LDCflTE t3,2,5iPRINT 13," 

ÏESPACEÏ'iiPRINT 13, '- >SU1 TE "l RESTORE 3 
OOiFOR 1*1 TO 51:READ Et (I) ,CtlI),VllIII 
,V2HII,StfI],Plll),AllI),A2tI],Blll),B2 
!n,Clll),C2II) 

4020 PEN ll,l!LOCATE II,1,I:PRINI 11, 'ET 
AT:':LDCATE (1,1,2iPRINT 11,'CAPITALEi'i 
LOCATE ll,l,3îPRINT tU'V.PR: " i LOCATE 11 
,1,4:PR1NT II, 'SUPi'i LDCATE ll,15.4lPRIN 
T 11,'PDP!' 

4030 PEN H.OtLOCATE ll,fl,l!PRINI II, Eli 
l):LOCATE ll,ll,2;PRINT ll,CtiIt;:PEN 11 
,0:PRINT H,CHRtl2ÎOIiPEN fl, 1 1 LOCATE 11 
,4,3iPRINT ll l VltlIl!CHRII250)! 1 ';VZ!( 
II!" , (CHRtli44liL0CATE ll,4,4iPRINT 11, 
SfIDiLDCATE tl ,20, 4: PRINT li PKI ,. ■■■„■ 
GOSUB 4070 

4035 (l=2:01=Q:92=l:03*3:PLDT A1(I),AZI1) 
,0!i605UB IlOOiPLOI B1(I),B2U>,(12:60SUB 

4100iPL0T CKII, 02111,03 
4040 it=INKEYI;IF Jt=" THEN 4040 
4050 IF i$=CHRII13l THEN C-OsËÛSUB 4065: 
GOSUB 4070iCL5 IliGOTO 3010 ELSE C=(j:G05 
UB 4065:B0SUB 4070iCLS II:NE1T 
4060 BDTO 3010 



4065 0WiB2>2iD3-2iPLDT Al (II ,82(11,51! 

GQ5UB 410D:PL0T Bl ( J> ,B2M t ,02: BOSUB 410 

OiPLOT CII]),C2([I,I)3 

4070 ON I 605L1B 200,201,202,203,204,205, 

206,207,208,209,210,211,212,213,214,215, 

214,217,218,219,220,221,222,223,224,225, 

224,227,228,229,230,232.233,234,235,234, 

237,238,239,240,241,243,244,245,246,247, 

24B, 249,250, 251, 252 

40BÛ RETURN 

4100 DRAUR 0,2:DRAUR 2,0iDRAKR Û,-2iDRAN 

R -2,0:RETURN 



5000 ' 



JEU I 



5005 BORDER 22:SCORE=0:E5SA1=0 

5010 CLS IliCLS 12: CLS 13: iw: 2,24iPEN I 

l.i 

5020 LDCA1E I2,1,1:PR1NI 12/1 ETATS ï' 

5030 LDCATE t3,l,liPRINT #3, "XSCGRE: ï" 

5040 LOCATE I3,1,3:PR1NI IÎ,'ïE59I1iJ" 

5050 RESTORE 300iFDR ï»i TO 51:READ EKY 

i,c*(n,viiiïi,m(r) l stH) l Pi(ïi,wiïi, 

A2(ll,BHyi,B2lï)|Cllïl,C2(ï)iNEÏT 

5055 60SUB 7000 

5040 5>1 

5045 Y=COUP(S> 

5070 C*2 

5080 ON ï GOSUB 200,201,202,203,204,205, 

204,207,208,209,210,211,212,213,214,215, 

214,217,218,219,220,221,222,223,224,225, 

224,227,228,229,230,232,233,234,235,234, 

237,238,239,240,241,243,244,245,244,247, 

24B, 24?, 250, 251, 252 

5100 LOCATE 11,1, IiPRINT 11, "Ville hpit 

aie d'Etat: 1 !" "iCtlïl 

5105 PLOT Al(V),A2(ïl,0iB0SUB 4100 

5110 LOCATE ll,l,3:INPUT •! , -XETATX: -;ET 

HV) 

5120 IF ETmi=EWI THEN LOCATE 12,1,5: 

PRINT l2,'BRAVD":FDR 1 = 1 TO 10:SDJND 1,1 

•20,20,7iNEIT ]|60T0 5140 

5130 IF ETJ(VIOEIIY) THEN LOCATE 12,1,5 

:PRINT H, M FAUX ICiLOCATE ll,5,4:PEN I 

l,OiPRlNT ll/IREPBNSElî'iEllïliPEN 11,1 

:FOR I-BO TO 100 STEP 20:5DUND 1,1*10,15 

0,7,,,12:NEITiFOR 1M TO lOOOiNEITiSDTO 

5150 

5140 SC0RE=5CDRE+liE5SAl=E5SftI+l!LOCATE 

l3,3,2iPRlNT 13, USINE ■ H" ; SCDRE: LDCATE 

13, 3, IiPRINT I3.USINB ■#•" | ESSAI (FDfi 1*1 

TO 200: NEU! LOCATE I2,1,5iPRINT 12,' 

':': = ■■ \V Aim,A2IY),Oi605UB 410O:GO 
TO 3140 

5150 ÉSSAI=ESSAI+!iLDCATE I3,3,2:PRINT I 
3 , US [ HE- ■M'|SCORE:LOCATE I3,3,4:PR1NI I 
3.U5ING "tl'|ES5AI:L0CATE I2,1,5iPRINT I 
2, - "iPEN ll,l:PLOT AHY),A2IY>,0iE 

OSUB 4100iC=0 

5160 ON 1 60SUB 200,201,202,203,204,205, 
206, 207, 208,209,210, 211, 212, 213, 214, 215, 
214, 217, 21B, 219, 220, 221, 222, 223, 224, 225, 
224 , 227 , 228 , 229 , 230 , 232 , 233 , 234 , 235 , 236 , 
237,238,239,240,241,243,244,245,246,247, 
24B, 249, 250, 251, 252 
5220 IF ES5AIM? THEN CLS IliLDCATE 12,1 

,3:PRINT 11, "LE TEST EST TERHINE'iFOR 1= 

1 TO 2000iNEIT:GDSlJ6 15000:6010 3000 

5230 S=SMiCLS IlsGOTO 5045 

7000 FOR A'1 TO 20:C0UPIA)*0iNEKT:A=l 

7010 l=INTIRNDt31IM 

7020 FOR 2=1 10 20:IF >=CDUPIZ! THEN 701 



EL5E NEÏT 

7030 C0UP(A1=I 

7040 A=A4i 

7050 IF A)20 THEN 7070 

7040 60TO 7010 

7070 RETURN 

13000 CLS IliCLS I] 

15010 LDCATE H, 2, IiPRINT 11, 'VOUS AVEZ 

TROUVE ' ; SCDRE; "REPONSES " i PR [ KT 11, 1 SUR 
"(ESSAIi" flUESTlONS'i PRINT H," MOYENNE 
-) "iiPRINT II. USINE 'Hl.ll-i (SCORE/ES 

SAIUlOOirPRINT 11," I" 

15020 RETURN 

20000 'mmi VILLE m.*M*t 

20005 5CDRE*0: E5SAI=0 

20010 BORDER 24:CL5 llîCLS I2:CLB IJslNK 
2,19;PEN 11,1 

20020 LDCATE 12,1, IiPRINT 12, 'I VILLES I 

20030 LOCATE 13,1, IiPRINT 13, "ÏSCOREi X" 
20040 LOCATE I3,1,3:PRINT tj, "XESSfll: X" 
20050 RESTDRE 300iFOR (-1 TO SliREAD Eli 
Y1,C1IY1,V1*(ÏI,V2I(Y),SIIY),P$(Y1,AIIY1 
,A2IY),BllY),B2IY),Cl<ri,C2IV!!NEn 
20055 6D5UB 7000 
20060 S=l 
20045 Y=COUPIS) 
20070 C-2 

20080 DN Y BDSUB 200,201,202,203,204,205 
,204,207,208,209,210,211,212,213,211,215 
,214,217,218,219,220,221,222,223,221,225 
,226,227,228,229,230,232,233,234,235,234 
,237,238,239,240,2*1,243,244,245,246,247 
,248,249,250,251,252 

20100 LOCATE H,l,lrPRlNT ll,"ETATi"|* " 
;Et(Y> 

20105 PLOT Aim,A2IY),0iBOSUB 4100 
20110 LOCATE ll,l,3iINPUT 11, '(VILLE CAP 
ITALE(!'|VCtm 

20120 IF VCtlY)=CtiYI THEN LOCATE 12,1,5 
iPRINT 12, 'BRAVO'; FOR M TO lOiSDJND 1, 
1*20,20, 7iNEIT liFDR 1*1 TO 500:NE<TiEOT 
D 20140 

20130 IF VCtmOMtYI THEN LOCATE 12,1, 
5iPRINT 12, 'I FAUÏ ï'iLOCATE ll,5,4:PEN 
ll,OiPRINT tl,'IREPONSEli';CtIY)!pEH tl, 
]:FOR I-BD TO 100 STEP 20:S0UND 1,1(10,1 
50,7,,,12iNEniF0R M TO IDOOiNEITiGOTO 
20150 

20140 SCORE-SCORE+liESSAI'ESSAHliLDCATE 
I3,3,2;PR1NT I3,U5ING 'lt';SCORE:LDCATE 
I3,3,4iPR1NT I3,US1NG 'II';ESSA1;F0R i' 
1 TO 200 iNEl II LOCATE I2,1,5iPRINT 12,' 

':C=0:PLDT Al (Y) .A2IY1 ,0:60SUi l!ûO:S 
OTO 20160 

20150 ESSAI'ESSAI'ltLDCATE l3,3,2iPRINT 
13, USINE 'll';SC0RE!LOCATE I3,3,4;PRINT 
13, USINE 'M'iESSAliLOCATE I2,1,5:PRINT 
12,' ■ s PLOT Al{ri,A2IY),0iEOSUB 410 

0;C*0 

20160 ON Y BOSUB 200,201,202,203,204,203 
,204,207,208,209,210,211,212,213,214,215 
,214,217,218,219,220,221,222,223,224,225 
,226,227,228,229,230,232,233,234,235,234 
,237,238,239,240,2*1,243,244,245,246,2(7 
,248,249,250,251,252 

20220 IF ESM1H1 THEN CLS lULOCATE 12, 
l,3iPRlNT 11, "LE TEST EST TERNINE'iFOR 1 
=1 TO 2000; NEI II BDSUB ISOOOiGDTO 3000 
20230 S=5+1:CLE IliGOTD 20063 
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